Changeset 12403


Ignore:
Timestamp:
Jul 13, 2009, 12:11:19 PM (10 years ago)
Author:
gz
Message:

bug #555: In check-toplevel-command, forgot to check for symbol macros

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop-lds.lisp

    r12209 r12403  
    263263              (and *toplevel-commands-dwim*
    264264                   (non-nil-symbol-p cmd)
    265                    (not (if (consp form) (fboundp cmd) (boundp cmd)))
     265                   (not (if (consp form)
     266                          (fboundp cmd)
     267                          (or (boundp cmd)
     268                              (nth-value 1 (gethash cmd *symbol-macros*)))))
    266269                   ;; Use find-symbol so don't make unneeded keywords.
    267270                   (setq cmd (find-symbol (symbol-name cmd) :keyword))))
Note: See TracChangeset for help on using the changeset viewer.