/[gcl]/gcl/lsp/gcl_evalmacros.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_evalmacros.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by camm, Sat Jul 23 08:51:22 2005 UTC revision 1.6 by camm, Fri Aug 12 15:42:49 2005 UTC
# Line 23  Line 23 
23    
24  (in-package "LISP")  (in-package "LISP")
25    
26  (export '(defvar defparameter defconstant))  (export '(defvar defparameter defconstant memq))
27    
28  (in-package "SYSTEM")  (in-package "SYSTEM")
29    
# Line 343  Line 343 
343               ,@(mapcar #'(lambda (x) `(proclaim ',x)) l)))               ,@(mapcar #'(lambda (x) `(proclaim ',x)) l)))
344    
345  (defmacro lambda ( &rest l) `(function (lambda ,@l)))  (defmacro lambda ( &rest l) `(function (lambda ,@l)))
346    (defmacro memq (a b) `(member ,a ,b :test 'eq))

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26