Changeset 11439


Ignore:
Timestamp:
12/14/08 08:45:50 (13 years ago)
Author:
ehuelsmann
Message:

Cleanup following r11438.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/precompiler.lisp

    r11438 r11439  
    691691      form))
    692692
    693 (defun define-local-macro (name lambda-list body)
    694   (let* ((form (gensym))
    695          (env (gensym))
    696          (body (sys::parse-defmacro lambda-list form body name 'macrolet
    697                                     :environment env))
    698          (expander `(lambda (,form ,env) (block ,name ,body)))
    699          (compiled-expander (sys::%compile nil expander)))
    700     (coerce-to-function (or compiled-expander expander))))
    701 
    702693(defvar *local-functions-and-macros* ())
    703694
    704695(defun local-macro-function (name)
    705696  (getf *local-functions-and-macros* name))
    706 
    707 (defun expand-local-macro (form)
    708   (let ((expansion (funcall (local-macro-function (car form)) form nil)))
    709     ;; If the expansion turns out to be a bare symbol, wrap it with PROGN so it
    710     ;; won't be mistaken for a tag in an enclosing TAGBODY.
    711     (if (symbolp expansion)
    712         (list 'PROGN expansion)
    713         expansion)))
    714697
    715698(defun precompile-macrolet (form)
Note: See TracChangeset for help on using the changeset viewer.