From 7c9daef5037fef49b3bd522cd4a78cdeda0c2055 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 3 Aug 2008 13:26:22 +0200 Subject: Add EQL, DO, DO*, DOTIMES, and DOLIST from Sacla. --- Sacla/share.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Sacla/share.lisp') 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* "") -- cgit v1.2.3