Changeset 8889


Ignore:
Timestamp:
Mar 26, 2008, 10:32:54 AM (11 years ago)
Author:
gb
Message:

Allow a doc string in DEF-STANDARD-INITIAL-BINDING.

File:
1 edited

Legend:

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

    r8886 r8889  
    679679    ',var))
    680680         
    681 (defmacro def-standard-initial-binding (name &optional (form name) &environment env)
     681(defmacro def-standard-initial-binding (name &optional (form name) (doc nil doc-p) &environment env)
    682682  `(progn
    683683    (eval-when (:compile-toplevel)
    684684      (note-variable-info ',name t ,env))   
    685685    (define-standard-initial-binding ',name #'(lambda () ,form))
     686    ,@(when doc-p
     687           `((set-documentation ',name 'variable ,doc)))
    686688    ',name))
    687689
Note: See TracChangeset for help on using the changeset viewer.