[armedbear-cvs] r11439 - trunk/j/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Dec 14 08:45:50 2008
New Revision: 11439

Log:
Cleanup following r11438.

Modified:
   trunk/j/src/org/armedbear/lisp/precompiler.lisp

Modified: trunk/j/src/org/armedbear/lisp/precompiler.lisp
==============================================================================
--- trunk/j/src/org/armedbear/lisp/precompiler.lisp	(original)
+++ trunk/j/src/org/armedbear/lisp/precompiler.lisp	Sun Dec 14 08:45:50 2008
@@ -690,28 +690,11 @@
       (precompile1 (expand-macro form))
       form))
 
-(defun define-local-macro (name lambda-list body)
-  (let* ((form (gensym))
-         (env (gensym))
-         (body (sys::parse-defmacro lambda-list form body name 'macrolet
-                                    :environment env))
-         (expander `(lambda (,form ,env) (block ,name ,body)))
-         (compiled-expander (sys::%compile nil expander)))
-    (coerce-to-function (or compiled-expander expander))))
-
 (defvar *local-functions-and-macros* ())
 
 (defun local-macro-function (name)
   (getf *local-functions-and-macros* name))
 
-(defun expand-local-macro (form)
-  (let ((expansion (funcall (local-macro-function (car form)) form nil)))
-    ;; If the expansion turns out to be a bare symbol, wrap it with PROGN so it
-    ;; won't be mistaken for a tag in an enclosing TAGBODY.
-    (if (symbolp expansion)
-        (list 'PROGN expansion)
-        expansion)))
-
 (defun precompile-macrolet (form)
   (let ((*compile-file-environment*
          (make-environment *compile-file-environment*)))