Changeset 11442


Ignore:
Timestamp:
12/14/08 12:52:39 (13 years ago)
Author:
vvoutilainen
Message:

Remove remaining bits of local-macro-function and
expand-local-macro as they are no longer needed.

File:
1 edited

Legend:

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

    r11441 r11442  
    373373             (cond ((setf handler (get op 'precompile-handler))
    374374                    (return-from precompile1 (funcall handler form)))
    375                    ((local-macro-function op)
    376                     (let ((result (expand-local-macro (precompile-cons form))))
    377                       (return-from precompile1 (if (equal result form)
    378                                                    result
    379                                                    (precompile1 result)))))
    380375                   ((macro-function op *compile-file-environment*)
    381376                    (return-from precompile1 (precompile1 (expand-macro form))))
     
    501496  (let ((place (second form)))
    502497    (cond ((and (consp place)
    503                 (local-macro-function (%car place)))
    504            (let ((expansion (expand-local-macro place)))
    505              (precompile1 (list* 'SETF expansion (cddr form)))))
    506           ((and (consp place)
    507498                (eq (%car place) 'VALUES))
    508            (setf form
    509                 (list* 'SETF
    510                         (list* 'VALUES
    511                                (mapcar #'precompile1 (%cdr place)))
    512                         (cddr form)))
    513            (precompile1 (expand-macro form)))
    514           ((symbolp place)
     499     (setf form
     500    (list* 'SETF
     501      (list* 'VALUES
     502             (mapcar #'precompile1 (%cdr place)))
     503      (cddr form)))
     504     (precompile1 (expand-macro form)))
     505    ((symbolp place)
    515506           (let ((varspec (find-varspec place)))
    516507             (if (and varspec (eq (second varspec) :symbol-macro))
     
    693684(defvar *local-functions-and-macros* ())
    694685
    695 (defun local-macro-function (name)
    696   (getf *local-functions-and-macros* name))
    697 
    698686(defun precompile-macrolet (form)
    699687  (let ((*compile-file-environment*
Note: See TracChangeset for help on using the changeset viewer.