Changeset 14081


Ignore:
Timestamp:
08/14/12 08:01:40 (8 years ago)
Author:
ehuelsmann
Message:

Re #236: prepare to offer restarts from inside the compiler.

Note: Restarts, when used to replace forms, need to be in pass1 because that's

where we inject variable references, etc.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass1.lisp

    r14077 r14081  
    978978               (eq (%car function-form) 'FUNCTION))
    979979      (let ((name (%cadr function-form)))
    980 ;;         (format t "p1-funcall name = ~S~%" name)
    981980        (let ((source-transform (source-transform name)))
    982981          (when source-transform
    983 ;;             (format t "found source transform for ~S~%" name)
    984 ;;             (format t "old form = ~S~%" form)
    985 ;;             (let ((new-form (expand-source-transform form)))
    986 ;;               (when (neq new-form form)
    987 ;;                 (format t "new form = ~S~%" new-form)
    988 ;;                 (return-from p1-funcall (p1 new-form))))
    989982            (let ((new-form (expand-source-transform (list* name (cddr form)))))
    990 ;;               (format t "new form = ~S~%" new-form)
    991983              (return-from p1-funcall (p1 new-form)))
    992984            )))))
     
    11651157         (local-function (find-local-function op)))
    11661158    (when local-function
    1167 ;;            (format t "p1 local call to ~S~%" op)
    1168 ;;            (format t "inline-p = ~S~%" (inline-p op))
    1169 
    11701159      (when (and *enable-inline-expansion* (inline-p op)
    11711160                 (local-function-definition local-function))
     
    12731262                (p1 maybe-optimized-call))))
    12741263         (t
    1275           form))))))
     1264          (compiler-unsupported "P1 unhandled case ~S" form)))))))
    12761265
    12771266(defun install-p1-handler (symbol handler)
     
    13231312
    13241313(defun p1-compiland (compiland)
    1325 ;;   (format t "p1-compiland name = ~S~%" (compiland-name compiland))
    13261314  (let ((*current-compiland* compiland)
    13271315        (*local-functions* *local-functions*)
Note: See TracChangeset for help on using the changeset viewer.