Changeset 809

Timestamp:

Apr 30, 2004, 7:34:52 PM (21 years ago)

Author:

Gary Byers

Message:

SETF shows arglist in error message, if odd length.

File:

• trunk/ccl/lib/macros.lisp (modified) (1 diff)

trunk/ccl/lib/macros.lisp

@@ -516 +516 @@
                          (default-setf form value env))))))))))
           ((oddp temp)
-           (error "Odd number of args to SETF."))
+           (error "Odd number of args to SETF : ~s." args))
           (t (do* ((a args (cddr a)) (l nil))
                   ((null a) `(progn ,@(nreverse l)))