- cl-utilities-cvs@common-lisp.net - mailman3.common-lisp.net

[cl-utilities-cvs] CVS update: cl-utilities/package.lisp cl-utilities/test.lisp
by pscott＠common-lisp.net 21 Oct '05

21 Oct '05

Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv28127 Modified Files: package.lisp test.lisp Log Message: Fixed symbol export bug involving WITH-COLLECTORS and added test code to ensure that it doesn't happen again. Date: Fri Oct 21 23:22:47 2005 Author: pscott Index: cl-utilities/package.lisp diff -u cl-utilities/package.lisp:1.3 cl-utilities/package.lisp:1.4 --- cl-utilities/package.lisp:1.3 Mon Aug 29 22:14:47 2005 +++ cl-utilities/package.lisp Fri Oct 21 23:22:47 2005 @@ -21,7 +21,7 @@ #:collecting #:collect - #:with-collect + #:with-collectors #:with-unique-names #:with-gensyms Index: cl-utilities/test.lisp diff -u cl-utilities/test.lisp:1.5 cl-utilities/test.lisp:1.6 --- cl-utilities/test.lisp:1.5 Fri May 13 21:45:57 2005 +++ cl-utilities/test.lisp Fri Oct 21 23:22:47 2005 @@ -87,7 +87,14 @@ (is (tree-equal (collecting (labels ((collect-it (x) (collect x))) (mapcar #'collect-it (reverse '(c b a))))) - '(a b c)))) + '(a b c))) + (is (tree-equal (multiple-value-bind (a b) + (with-collectors (x y) + (x 1) + (y 2) + (x 3)) + (append a b)) + '(1 3 2)))) (test with-unique-names (is (equalp (subseq (with-unique-names (foo)

1 0

[cl-utilities-cvs] CVS update: cl-utilities/doc/collecting.html cl-utilities/doc/extremum.html cl-utilities/doc/read-delimited.html cl-utilities/doc/split-sequence.html
by pscott＠common-lisp.net 29 Aug '05

29 Aug '05

Update of /project/cl-utilities/cvsroot/cl-utilities/doc In directory common-lisp.net:/tmp/cvs-serv5304 Added Files: collecting.html extremum.html read-delimited.html split-sequence.html Log Message: Initial commit. Date: Mon Aug 29 22:18:18 2005 Author: pscott

1 0

[cl-utilities-cvs] CVS update: Directory change: cl-utilities/doc
by pscott＠common-lisp.net 29 Aug '05

29 Aug '05

Update of /project/cl-utilities/cvsroot/cl-utilities/doc In directory common-lisp.net:/tmp/cvs-serv4750/doc Log Message: Directory /project/cl-utilities/cvsroot/cl-utilities/doc added to the repository Date: Mon Aug 29 22:15:41 2005 Author: pscott New directory cl-utilities/doc added

1 0

[cl-utilities-cvs] CVS update: cl-utilities/cl-utilities.asd cl-utilities/collecting.lisp cl-utilities/extremum.lisp cl-utilities/package.lisp cl-utilities/package.sh cl-utilities/split-sequence.lisp
by pscott＠common-lisp.net 29 Aug '05

29 Aug '05

Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv4286 Modified Files: cl-utilities.asd collecting.lisp extremum.lisp package.lisp package.sh split-sequence.lisp Log Message: Added split-sequence, made slight changes, updated package.sh to match my current machine. Date: Mon Aug 29 22:14:47 2005 Author: pscott Index: cl-utilities/cl-utilities.asd diff -u cl-utilities/cl-utilities.asd:1.2 cl-utilities/cl-utilities.asd:1.3 --- cl-utilities/cl-utilities.asd:1.2 Thu May 26 22:10:56 2005 +++ cl-utilities/cl-utilities.asd Mon Aug 29 22:14:47 2005 @@ -8,6 +8,7 @@ (defsystem cl-utilities :author "Maintained by Peter Scott" :components ((:file "package") + (:file "split-sequence" :depends-on ("package")) (:file "extremum" :depends-on ("package" "with-unique-names" "once-only")) @@ -21,4 +22,6 @@ (:file "rotate-byte" :depends-on ("package")) (:file "copy-array" :depends-on ("package")) (:file "compose" :depends-on ("package"))) - :depends-on (split-sequence #+sbcl :sb-rotate-byte)) \ No newline at end of file + ;; On SBCL, we can speed up byte rotation by using its + ;; implementation of rotate-byte. + :depends-on (#+sbcl :sb-rotate-byte)) \ No newline at end of file Index: cl-utilities/collecting.lisp diff -u cl-utilities/collecting.lisp:1.2 cl-utilities/collecting.lisp:1.3 --- cl-utilities/collecting.lisp:1.2 Thu May 26 22:16:47 2005 +++ cl-utilities/collecting.lisp Mon Aug 29 22:14:47 2005 @@ -1,5 +1,5 @@ ;; Opinions differ on how a collection macro should work. There are -;; two main points for discussion: multiple collection variables and +;; two major points for discussion: multiple collection variables and ;; implementation method. ;; ;; There are two main ways of implementing collection: sticking Index: cl-utilities/extremum.lisp diff -u cl-utilities/extremum.lisp:1.6 cl-utilities/extremum.lisp:1.7 --- cl-utilities/extremum.lisp:1.6 Thu May 26 21:20:28 2005 +++ cl-utilities/extremum.lisp Mon Aug 29 22:14:47 2005 @@ -19,6 +19,7 @@ &optional (key #'identity)) (if (eql key #'identity) `(lambda (a b) + (declare (optimize (speed 3) (safety 0) (space 0) (debug 1))) (if (funcall ,test a b) a b)) whole)) Index: cl-utilities/package.lisp diff -u cl-utilities/package.lisp:1.2 cl-utilities/package.lisp:1.3 --- cl-utilities/package.lisp:1.2 Thu May 12 23:17:50 2005 +++ cl-utilities/package.lisp Mon Aug 29 22:14:47 2005 @@ -1,5 +1,5 @@ (defpackage :cl-utilities - (:use :common-lisp :split-sequence) + (:use :common-lisp) (:export #:split-sequence #:split-sequence-if #:split-sequence-if-not Index: cl-utilities/package.sh diff -u cl-utilities/package.sh:1.3 cl-utilities/package.sh:1.4 --- cl-utilities/package.sh:1.3 Thu May 26 22:29:24 2005 +++ cl-utilities/package.sh Mon Aug 29 22:14:47 2005 @@ -1,17 +1,17 @@ #!/bin/sh -mkdir cl-utilities-1.1 -cp cl-utilities.asd package.sh collecting.lisp expt-mod.lisp package.lisp split-sequence.lisp compose.lisp extremum.lisp read-delimited.lisp test.lisp copy-array.lisp once-only.lisp rotate-byte.lisp with-unique-names.lisp README cl-utilities-1.1/ +mkdir cl-utilities-1.1.1 +cp cl-utilities.asd package.sh collecting.lisp expt-mod.lisp package.lisp compose.lisp extremum.lisp read-delimited.lisp test.lisp copy-array.lisp once-only.lisp rotate-byte.lisp with-unique-names.lisp README cl-utilities-1.1.1/ rm -f cl-utilities-latest.tar.gz cl-utilities-latest.tar.gz.asc -tar -czvf cl-utilities-1.1.tar.gz cl-utilities-1.1/ -ln -s /root/lisp/cl-utilities/cl-utilities-1.1.tar.gz /root/lisp/cl-utilities/cl-utilities-latest.tar.gz -/usr/bin/xterm -e gpg -b -a /root/lisp/cl-utilities/cl-utilities-1.1.tar.gz -ln -s /root/lisp/cl-utilities/cl-utilities-1.1.tar.gz.asc /root/lisp/cl-utilities/cl-utilities-latest.tar.gz.asc -rm -Rf cl-utilities-1.1/ +tar -czvf cl-utilities-1.1.1.tar.gz cl-utilities-1.1.1/ +ln -s ~/hacking/lisp/cl-utilities/cl-utilities-1.1.1.tar.gz ~/hacking/lisp/cl-utilities/cl-utilities-latest.tar.gz +gpg -b -a ~/hacking/lisp/cl-utilities/cl-utilities-1.1.1.tar.gz +ln -s ~/hacking/lisp/cl-utilities/cl-utilities-1.1.1.tar.gz.asc ~/hacking/lisp/cl-utilities/cl-utilities-latest.tar.gz.asc +rm -Rf cl-utilities-1.1.1/ -scp cl-utilities-1.1.tar.gz pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-1.1.tar.gz -scp cl-utilities-1.1.tar.gz.asc pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-1.1.tar.gz.asc +scp cl-utilities-1.1.1.tar.gz pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-1.1.1.tar.gz +scp cl-utilities-1.1.1.tar.gz.asc pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-1.1.1.tar.gz.asc scp cl-utilities-latest.tar.gz pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-latest.tar.gz -scp cl-utilities-latest.tar.gz.asc pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-latest.tar.gz.asc \ No newline at end of file +scp cl-utilities-latest.tar.gz.asc pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-latest.tar.gz.asc Index: cl-utilities/split-sequence.lisp diff -u cl-utilities/split-sequence.lisp:1.1.1.1 cl-utilities/split-sequence.lisp:1.2 --- cl-utilities/split-sequence.lisp:1.1.1.1 Mon May 9 23:26:29 2005 +++ cl-utilities/split-sequence.lisp Mon Aug 29 22:14:47 2005 @@ -50,6 +50,13 @@ ;;; * (split-sequence #\; ";oo;bar;ba;" :start 1 :end 9) ;;; -> ("oo" "bar" "b"), 9 +;; cl-utilities note: the license of this file is unclear, and I don't +;; even know whom to contact to clarify it. If anybody objects to my +;; assumption that it is public domain, please contact me so I can do +;; something about it. Previously I required the split-sequence + ; package as a dependency, but that was so unwieldy that it was *the* +;; sore spot sticking out in the design of cl-utilities. -Peter Scott + (in-package :cl-utilities) (defun split-sequence (delimiter seq &key (count nil) (remove-empty-subseqs nil) (from-end nil) (start 0) (end nil) (test nil test-supplied) (test-not nil test-not-supplied) (key nil key-supplied)) @@ -168,7 +175,7 @@ of this function; :from-end values of NIL and T are equivalent unless :count is supplied. The second return value is an index suitable as an argument to CL:SUBSEQ into the sequence indicating where processing -stopped." +stopped." ; Emacs syntax highlighting is broken, and this helps: " (let ((len (length seq)) (other-keys (when key-supplied (list :key key))))

1 0

[cl-utilities-cvs] CVS update: cl-utilities/package.sh
by pscott＠common-lisp.net 26 May '05

26 May '05

Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv7761 Modified Files: package.sh Log Message: Updated version number Date: Thu May 26 22:29:24 2005 Author: pscott Index: cl-utilities/package.sh diff -u cl-utilities/package.sh:1.2 cl-utilities/package.sh:1.3 --- cl-utilities/package.sh:1.2 Tue May 17 21:30:09 2005 +++ cl-utilities/package.sh Thu May 26 22:29:24 2005 @@ -1,17 +1,17 @@ #!/bin/sh -mkdir cl-utilities-1.0.2 -cp cl-utilities.asd package.sh collecting.lisp expt-mod.lisp package.lisp split-sequence.lisp compose.lisp extremum.lisp read-delimited.lisp test.lisp copy-array.lisp once-only.lisp rotate-byte.lisp with-unique-names.lisp README cl-utilities-1.0.2/ +mkdir cl-utilities-1.1 +cp cl-utilities.asd package.sh collecting.lisp expt-mod.lisp package.lisp split-sequence.lisp compose.lisp extremum.lisp read-delimited.lisp test.lisp copy-array.lisp once-only.lisp rotate-byte.lisp with-unique-names.lisp README cl-utilities-1.1/ rm -f cl-utilities-latest.tar.gz cl-utilities-latest.tar.gz.asc -tar -czvf cl-utilities-1.0.2.tar.gz cl-utilities-1.0.2/ -ln -s /root/lisp/cl-utilities/cl-utilities-1.0.2.tar.gz /root/lisp/cl-utilities/cl-utilities-latest.tar.gz -/usr/bin/xterm -e gpg -b -a /root/lisp/cl-utilities/cl-utilities-1.0.2.tar.gz -ln -s /root/lisp/cl-utilities/cl-utilities-1.0.2.tar.gz.asc /root/lisp/cl-utilities/cl-utilities-latest.tar.gz.asc -rm -Rf cl-utilities-1.0.2/ +tar -czvf cl-utilities-1.1.tar.gz cl-utilities-1.1/ +ln -s /root/lisp/cl-utilities/cl-utilities-1.1.tar.gz /root/lisp/cl-utilities/cl-utilities-latest.tar.gz +/usr/bin/xterm -e gpg -b -a /root/lisp/cl-utilities/cl-utilities-1.1.tar.gz +ln -s /root/lisp/cl-utilities/cl-utilities-1.1.tar.gz.asc /root/lisp/cl-utilities/cl-utilities-latest.tar.gz.asc +rm -Rf cl-utilities-1.1/ -scp cl-utilities-1.0.2.tar.gz pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-1.0.2.tar.gz -scp cl-utilities-1.0.2.tar.gz.asc pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-1.0.2.tar.gz.asc +scp cl-utilities-1.1.tar.gz pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-1.1.tar.gz +scp cl-utilities-1.1.tar.gz.asc pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-1.1.tar.gz.asc scp cl-utilities-latest.tar.gz pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-latest.tar.gz scp cl-utilities-latest.tar.gz.asc pscott@common-lisp.net:/project/cl-utilities/public_html/cl-utilities-latest.tar.gz.asc

1 0

[cl-utilities-cvs] CVS update: cl-utilities/copy-array.lisp
by pscott＠common-lisp.net 26 May '05

26 May '05

Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv7681 Modified Files: copy-array.lisp Log Message: Factored out part of COPY-ARRAY into its own function. Date: Thu May 26 22:24:24 2005 Author: pscott Index: cl-utilities/copy-array.lisp diff -u cl-utilities/copy-array.lisp:1.1.1.1 cl-utilities/copy-array.lisp:1.2 --- cl-utilities/copy-array.lisp:1.1.1.1 Mon May 9 23:26:29 2005 +++ cl-utilities/copy-array.lisp Thu May 26 22:24:24 2005 @@ -7,19 +7,23 @@ unless UNDISPLACE is non-NIL, in which case the contents of the array will be copied into a completely new, not displaced, array." (declare (type array array)) - (let ((copy - (apply #'make-array - (list* (array-dimensions array) - :element-type (array-element-type array) - :adjustable (adjustable-array-p array) - :fill-pointer (when (array-has-fill-pointer-p array) - (fill-pointer array)) - (multiple-value-bind (displacement offset) - (array-displacement array) - (when (and displacement (not undisplace)) - (list :displaced-to displacement - :displaced-index-offset offset))))))) + (let ((copy (%make-array-with-same-properties array undisplace))) (unless (array-displacement copy) (dotimes (n (array-total-size copy)) (setf (row-major-aref copy n) (row-major-aref array n)))) - copy)) \ No newline at end of file + copy)) + +(defun %make-array-with-same-properties (array undisplace) + "Make an array with the same properties (size, adjustability, etc.) +as another array, optionally undisplacing the array." + (apply #'make-array + (list* (array-dimensions array) + :element-type (array-element-type array) + :adjustable (adjustable-array-p array) + :fill-pointer (when (array-has-fill-pointer-p array) + (fill-pointer array)) + (multiple-value-bind (displacement offset) + (array-displacement array) + (when (and displacement (not undisplace)) + (list :displaced-to displacement + :displaced-index-offset offset)))))) \ No newline at end of file

1 0

[cl-utilities-cvs] CVS update: cl-utilities/collecting.lisp
by pscott＠common-lisp.net 26 May '05

26 May '05

Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv7621 Modified Files: collecting.lisp Log Message: Refactored, moved things around, improved error handling, and generally improved things. Date: Thu May 26 22:16:47 2005 Author: pscott Index: cl-utilities/collecting.lisp diff -u cl-utilities/collecting.lisp:1.1.1.1 cl-utilities/collecting.lisp:1.2 --- cl-utilities/collecting.lisp:1.1.1.1 Mon May 9 23:26:29 2005 +++ cl-utilities/collecting.lisp Thu May 26 22:16:47 2005 @@ -1,5 +1,3 @@ -(in-package :cl-utilities) - ;; Opinions differ on how a collection macro should work. There are ;; two main points for discussion: multiple collection variables and ;; implementation method. @@ -14,11 +12,11 @@ ;; it always uses the COLLECT function. If you want to collect into ;; multiple lists, use the WITH-COLLECT macro. - +(in-package :cl-utilities) ;; This should only be called inside of COLLECTING macros, but we ;; define it here to provide an informative error message and to make -;; it easier for SLIME (et al) to get documentation for the COLLECT +;; it easier for SLIME (et al.) to get documentation for the COLLECT ;; function when it's used in the COLLECTING macro. (defun collect (thing) "Collect THING in the context established by the COLLECTING macro" @@ -40,27 +38,13 @@ ,@body) ,collector))) -#+nil -(collecting - (dotimes (x 10) - (collect x))) - -;(collecting (mapc #'collect '(1 2 3 4 5))) - (defmacro with-collectors ((&rest collectors) &body body) "Collect some things into lists forwards. The names in COLLECTORS are defined as local functions which each collect into a separate list. Returns as many values as there are collectors, in the order they were given." - ;; Check that all of the COLLECTORS are symbols. If not, raise an error. - (let ((bad-collector (find-if-not #'symbolp collectors))) - (when bad-collector - (error "WITH-COLLECTORS expected a symbol but got ~S" bad-collector))) - (let ((gensyms-alist (mapcar #'cons collectors - (mapcar #'gensym - (mapcar #'(lambda (x) - (format nil "~A-TAIL-" x)) - collectors))))) + (%with-collectors-check-collectors collectors) + (let ((gensyms-alist (%with-collectors-gensyms-alist collectors))) `(let ,(loop for collector in collectors for tail = (cdr (assoc collector gensyms-alist)) nconc (list collector tail)) @@ -75,10 +59,26 @@ ,@body) (values ,@collectors)))) -#+nil -(with-collectors (one-through-nine abc) - (mapcar #'abc '(a b c)) - (dotimes (x 10) - (one-through-nine x) - (print one-through-nine)) - (terpri) (terpri)) \ No newline at end of file +(defun %with-collectors-check-collectors (collectors) + "Check that all of the COLLECTORS are symbols. If not, raise an error." + (let ((bad-collector (find-if-not #'symbolp collectors))) + (when bad-collector + (error 'type-error + :datum bad-collector + :expected-type 'symbol)))) + +(defun %with-collectors-gensyms-alist (collectors) + "Return an alist mapping the symbols in COLLECTORS to gensyms" + (mapcar #'cons collectors + (mapcar (compose #'gensym + #'(lambda (x) + (format nil "~A-TAIL-" x))) + collectors))) + +;; Some test code which would be too hard to move to the test suite. +#+nil (with-collectors (one-through-nine abc) + (mapcar #'abc '(a b c)) + (dotimes (x 10) + (one-through-nine x) + (print one-through-nine)) + (terpri) (terpri)) \ No newline at end of file

1 0

[cl-utilities-cvs] CVS update: cl-utilities/cl-utilities.asd
by pscott＠common-lisp.net 26 May '05

26 May '05

Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv6732 Modified Files: cl-utilities.asd Log Message: Added dependency for COMPOSE used in macroexpander code in WITH-COLLECTORS Date: Thu May 26 22:10:56 2005 Author: pscott Index: cl-utilities/cl-utilities.asd diff -u cl-utilities/cl-utilities.asd:1.1.1.1 cl-utilities/cl-utilities.asd:1.2 --- cl-utilities/cl-utilities.asd:1.1.1.1 Mon May 9 23:26:29 2005 +++ cl-utilities/cl-utilities.asd Thu May 26 22:10:56 2005 @@ -8,11 +8,15 @@ (defsystem cl-utilities :author "Maintained by Peter Scott" :components ((:file "package") - (:file "extremum" :depends-on ("package")) + (:file "extremum" :depends-on ("package" + "with-unique-names" + "once-only")) (:file "read-delimited" :depends-on ("package")) (:file "expt-mod" :depends-on ("package")) (:file "with-unique-names" :depends-on ("package")) - (:file "collecting" :depends-on ("package" "with-unique-names")) + (:file "collecting" :depends-on ("package" + "with-unique-names" + "compose")) (:file "once-only" :depends-on ("package")) (:file "rotate-byte" :depends-on ("package")) (:file "copy-array" :depends-on ("package"))

1 0

[cl-utilities-cvs] CVS update: cl-utilities/with-unique-names.lisp
by pscott＠common-lisp.net 26 May '05

26 May '05

Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv5859 Modified Files: with-unique-names.lisp Log Message: Refactored and improved type checking. Date: Thu May 26 22:00:00 2005 Author: pscott Index: cl-utilities/with-unique-names.lisp diff -u cl-utilities/with-unique-names.lisp:1.3 cl-utilities/with-unique-names.lisp:1.4 --- cl-utilities/with-unique-names.lisp:1.3 Mon May 16 21:12:00 2005 +++ cl-utilities/with-unique-names.lisp Thu May 26 22:00:00 2005 @@ -6,17 +6,21 @@ "Executes a series of forms with each var bound to a fresh, uninterned symbol. See http://www.cliki.net/WITH-UNIQUE-NAMES" `(let ,(mapcar #'(lambda (binding) - (destructuring-bind (var prefix) - (if (consp binding) - binding - (list binding binding)) - (if (symbolp var) - `(,var (gensym ,(format nil "~A" prefix))) - (error 'type-error - :datum var - :expected-type 'symbol)))) + (multiple-value-bind (var prefix) + (%with-unique-names-binding-parts binding) + (check-type var symbol) + `(,var (gensym ,(format nil "~A" + (or prefix var)))))) bindings) ,@body)) + +(defun %with-unique-names-binding-parts (binding) + "Return (values var prefix) from a WITH-UNIQUE-NAMES binding +form. If PREFIX is not given in the binding, NIL is returned to +indicate that the default should be used." + (if (consp binding) + (values (first binding) (second binding)) + (values binding nil))) (define-condition list-binding-not-supported (warning) ((binding :initarg :binding :reader list-binding-not-supported-binding))

1 0

[cl-utilities-cvs] CVS update: cl-utilities/once-only.lisp
by pscott＠common-lisp.net 26 May '05

26 May '05

Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv5783 Modified Files: once-only.lisp Log Message: Switched to %foo naming convention for auxilliary functions. Date: Thu May 26 21:47:53 2005 Author: pscott Index: cl-utilities/once-only.lisp diff -u cl-utilities/once-only.lisp:1.2 cl-utilities/once-only.lisp:1.3 --- cl-utilities/once-only.lisp:1.2 Thu May 26 21:09:05 2005 +++ cl-utilities/once-only.lisp Thu May 26 21:47:53 2005 @@ -7,7 +7,7 @@ (in-package :cl-utilities) -(defun check-once-only-names (names) +(defun %check-once-only-names (names) "Check that all of the NAMES are symbols. If not, raise an error." ;; This only raises an error for the first non-symbol argument ;; found. While this won't report multiple errors, it is probably @@ -18,7 +18,7 @@ (defmacro once-only (names &body body) ;; Check the NAMES list for validity. - (check-once-only-names names) + (%check-once-only-names names) ;; Do not touch this code unless you really know what you're doing. (let ((gensyms (loop for name in names collect (gensym (string name))))) `(let (,@(loop for g in gensyms

1 0