Changeset 4401


Ignore:
Timestamp:
10/16/03 00:33:05 (18 years ago)
Author:
piso
Message:

DEFUN: environment argument.

File:
1 edited

Legend:

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

    r4393 r4401  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: compiler.lisp,v 1.44 2003-10-15 17:20:01 piso Exp $
     4;;; $Id: compiler.lisp,v 1.45 2003-10-16 00:33:05 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    242242      (c::%compile name definition)))
    243243
    244 ;; Redefine DEFUN to compile the definition on the fly.
    245 (defmacro defun (name lambda-list &rest body)
    246   `(progn
    247      (sys::%defun ',name ',lambda-list ',body)
    248      (compiler::%compile ',name)
    249      ',name))
    250 
    251244;; Redefine DEFMACRO to compile the expansion function on the fly.
    252245(defmacro defmacro (name lambda-list &rest body)
     
    267260;; Make an exception just this one time...
    268261(sys::fset 'defmacro (get 'defmacro 'sys::macroexpand-macro))
     262
     263;; Redefine DEFUN to compile the definition on the fly.
     264(defmacro defun (name lambda-list &rest body &environment env)
     265  `(progn
     266     (sys::%defun ',name ',lambda-list ',body ,env)
     267     (compiler::%compile ',name)
     268     ',name))
Note: See TracChangeset for help on using the changeset viewer.