diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-03 13:26:22 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-03 13:26:22 +0200 |
commit | 7c9daef5037fef49b3bd522cd4a78cdeda0c2055 (patch) | |
tree | 37c46e241b608a7ee8fa725df09864742e43e1a6 /Sacla/share.lisp | |
parent | bf7021f60ed3bdc3f1a3f281fa57a1566141a67d (diff) |
Add EQL, DO, DO*, DOTIMES, and DOLIST from Sacla.
Diffstat (limited to 'Sacla/share.lisp')
-rw-r--r-- | Sacla/share.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Sacla/share.lisp b/Sacla/share.lisp index b054699..6fa3af8 100644 --- a/Sacla/share.lisp +++ b/Sacla/share.lisp @@ -156,10 +156,10 @@ (defun mapappend (function &rest lists) (apply #'append (apply #'mapcar function lists))) -(define-condition simple-program-error (simple-condition program-error) ()) +;; (define-condition simple-program-error (simple-condition program-error) ()) -(define-modify-macro appendf (&rest args) - append "Append onto list") +;; (define-modify-macro appendf (&rest args) +;; append "Append onto list") ;; (defvar *message-prefix* "") |