Changeset 3813


Ignore:
Timestamp:
09/16/03 16:15:53 (19 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r3543 r3813  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: compiler.lisp,v 1.37 2003-08-30 17:05:12 piso Exp $
     4;;; $Id: compiler.lisp,v 1.38 2003-09-16 16:15:53 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    193193           (multiple-value-bind (form closure-p)
    194194             (function-lambda-expression definition)
     195             (unless form
     196               (format t "; No lambda expression available for ~S.~%" name)
     197               (return-from %compile (values nil t t)))
    195198             (when closure-p
    196                (format t "; Note: unable to compile function ~S defined in non-null lexical environment.~%" name)
     199               (format t "; Unable to compile function ~S defined in non-null lexical environment.~%" name)
    197200               (finish-output)
    198                (return-from compile (values nil t t)))
     201               (return-from %compile (values nil t t)))
    199202             (setq expr form)))
    200203          ((and (consp definition) (eq (car definition) 'lambda))
     
    250253       (if (special-operator-p ',name)
    251254         (sys::%put ',name
    252                     'macroexpand-macro
     255                    'sys::macroexpand-macro
    253256                    (sys::make-macro (c::%compile nil ,expander)))
    254257         (sys::fset ',name
     
    257260
    258261;; Make an exception just this one time...
    259 (sys::fset 'defmacro (get 'defmacro 'macroexpand-macro))
     262(sys::fset 'defmacro (get 'defmacro 'sys::macroexpand-macro))
Note: See TracChangeset for help on using the changeset viewer.