diff options
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* "") |