Changeset 9242 for trunk/j/src/org/armedbear/lisp/deftype.lisp

Timestamp:

05/24/05 18:58:02 (16 years ago)

Author:

piso

Message:

Work in progress (tested).

File:

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

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2004-2005 Peter Graves
-;;; $Id: deftype.lisp,v 1.4 2005-02-26 17:36:19 piso Exp $
+;;; $Id: deftype.lisp,v 1.5 2005-05-24 18:58:02 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -44 +44 @@
     (loop
       (if (consp type)
-          (setf tp (car type) i (cdr type))
-          (setf tp type i nil))
+          (setf tp (%car type) i (%cdr type))
+          (setf tp type
+                i nil))
       (if (and (symbolp tp) (get tp 'deftype-definition))
           (setf type (apply (get tp 'deftype-definition) i))