Changeset 11658


Ignore:
Timestamp:
Jan 29, 2009, 3:55:42 PM (10 years ago)
Author:
gz
Message:

r11572 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/nfcomp.lisp

    r11598 r11658  
    815815  (let ((compile-time-defenv (definition-environment *fasl-compile-time-env*))
    816816        (definition-env (definition-environment env)))
     817    (let* ((info (variable-information name env)))
     818      (when (or (eq info :special)
     819                (eq info :constant))
     820        (signal-program-error "Can't define ~s as a symbol-macro; already defined as a ~a." name (string-downcase info))))
    817821    (when (or definition-env compile-time-defenv)
    818822      (let ((cell (cons name expansion)))
    819823        (when compile-time-defenv
    820           (push cell (defenv.functions compile-time-defenv)))
     824          (push cell (defenv.symbol-macros compile-time-defenv)))
    821825        (when definition-env
    822           (push cell (defenv.functions definition-env)))))
     826          (push cell (defenv.symbol-macros definition-env)))))
    823827    name))
    824828
Note: See TracChangeset for help on using the changeset viewer.