Changeset 4082
- Timestamp:
- 09/27/03 17:31:58 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/subtypep.lisp
r3990 r4082 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: subtypep.lisp,v 1.1 4 2003-09-22 12:06:46piso Exp $4 ;;; $Id: subtypep.lisp,v 1.15 2003-09-27 17:31:58 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 112 112 (defun normalize-type (type) 113 113 (let (tp i) 114 (if (consp type) 115 (setq tp (car type) i (cdr type)) 116 (setq tp type i nil)) 114 (loop 115 (if (consp type) 116 (setq tp (car type) i (cdr type)) 117 (setq tp type i nil)) 118 (if (and (symbolp tp) (get tp 'deftype-definition)) 119 (setq type (apply (get tp 'deftype-definition) i)) 120 (return))) 117 121 (case tp 118 122 ((ARRAY SIMPLE-ARRAY)
Note: See TracChangeset
for help on using the changeset viewer.