Changeset 4153

Timestamp:

10/01/03 01:14:15 (19 years ago)

Author:

piso

Message:

parse-defmacro => sys::parse-defmacro

File:

• trunk/j/src/org/armedbear/lisp/compiler.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/compiler.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: compiler.lisp,v 1.38 2003-09-16 16:15:53 piso Exp $
+;;; $Id: compiler.lisp,v 1.39 2003-10-01 01:14:15 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -247 +247 @@
   (let* ((form (gensym))
          (env (gensym))
-         (body (parse-defmacro lambda-list form body name 'defmacro
-                               :environment env))
+         (body (sys::parse-defmacro lambda-list form body name 'defmacro
+                                    :environment env))
          (expander `(lambda (,form ,env) (block ,name ,body))))
     `(progn