Changeset 4526

Timestamp:

10/24/03 17:15:25 (18 years ago)

Author:

piso

Message:

TRANSFORM1: added (eq fun 'QUOTE) case.

File:

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

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: transform.lisp,v 1.1 2003-10-23 13:12:04 piso Exp $
+;;; $Id: transform.lisp,v 1.2 2003-10-24 17:15:25 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -130 +130 @@
              (push 'PROGN result)
              result))
+          ((eq fun 'QUOTE)
+           form)
           ((and (symbolp fun) (fboundp fun))
            (cons fun (mapcar #'transform1 args)))