Changeset 4153
- Timestamp:
- 10/01/03 01:14:15 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/compiler.lisp
r3813 r4153 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: compiler.lisp,v 1.3 8 2003-09-16 16:15:53piso Exp $4 ;;; $Id: compiler.lisp,v 1.39 2003-10-01 01:14:15 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 247 247 (let* ((form (gensym)) 248 248 (env (gensym)) 249 (body ( parse-defmacro lambda-list form body name 'defmacro250 :environment env))249 (body (sys::parse-defmacro lambda-list form body name 'defmacro 250 :environment env)) 251 251 (expander `(lambda (,form ,env) (block ,name ,body)))) 252 252 `(progn
Note: See TracChangeset
for help on using the changeset viewer.