Ignore:
Timestamp:
05/24/05 18:58:02 (16 years ago)
Author:
piso
Message:

Work in progress (tested).

File:
1 edited

Legend:

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

    r8640 r9242  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: deftype.lisp,v 1.4 2005-02-26 17:36:19 piso Exp $
     4;;; $Id: deftype.lisp,v 1.5 2005-05-24 18:58:02 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    4444    (loop
    4545      (if (consp type)
    46           (setf tp (car type) i (cdr type))
    47           (setf tp type i nil))
     46          (setf tp (%car type) i (%cdr type))
     47          (setf tp type
     48                i nil))
    4849      (if (and (symbolp tp) (get tp 'deftype-definition))
    4950          (setf type (apply (get tp 'deftype-definition) i))
Note: See TracChangeset for help on using the changeset viewer.