Changeset 4175


Ignore:
Timestamp:
10/02/03 15:48:33 (19 years ago)
Author:
piso
Message:

DEFUN: work in progress.

File:
1 edited

Legend:

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

    r4174 r4175  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: compiler.lisp,v 1.41 2003-10-02 14:37:17 piso Exp $
     4;;; $Id: compiler.lisp,v 1.42 2003-10-02 15:48:33 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    242242;; Redefine DEFUN to compile the definition on the fly.
    243243(defmacro defun (name lambda-list &rest body)
    244   `(prog1
    245     (sys::%defun ',name ',lambda-list ',body)
    246     (compiler::%compile ',name)))
     244  `(progn
     245     (sys::%defun ',name ',lambda-list ',body)
     246     (compiler::%compile ',name)
     247     ',name))
    247248
    248249;; Redefine DEFMACRO to compile the expansion function on the fly.
Note: See TracChangeset for help on using the changeset viewer.