Parent Directory | Revision Log | 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)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |