Changeset 13210 for trunk/abcl/src/org


Ignore:
Timestamp:
02/09/11 10:38:19 (11 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13209 r13210  
    26642664        (initarg (car tail) (car tail)))
    26652665      ((null tail))
    2666     (when (and initarg (not (symbolp initarg)))
     2666    (unless (symbolp initarg)
    26672667      (error 'program-error
    26682668             :format-control "Invalid initarg ~S."
Note: See TracChangeset for help on using the changeset viewer.