[armedbear-cvs] r13210 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Feb  9 05:38:19 2011
New Revision: 13210

Log:
Reduce complexity of a test: no need to check initarg is not NIL,
NIL is symbolp too.

Modified:
   trunk/abcl/src/org/armedbear/lisp/clos.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/clos.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/clos.lisp	Wed Feb  9 05:38:19 2011
@@ -2663,7 +2663,7 @@
   (do* ((tail all-keys (cddr tail))
         (initarg (car tail) (car tail)))
       ((null tail))
-    (when (and initarg (not (symbolp initarg)))
+    (unless (symbolp initarg)
       (error 'program-error
              :format-control "Invalid initarg ~S."
              :format-arguments (list initarg))))