[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Supporting Edit Definition

You need to use record-source-file-name; here's what I do:

1;; Defun-export -- define a function and export its symbol.  Export first so natural value is value
;; of defun (the name).
0(defmacro 2defun-export 3(name args &body body)
0  3`(progn (export ',name)
0          #+Symbolics (scl:record-source-file-name ',name 'defun-export)
          3(defun ,name ,args
0            #+Symbolics (declare (sys:function-parent ,name defun-export))
            3,@body)))


0Cheers,

CarlManning