Parent Directory | Revision Log | Patch
revision 1.9 by camm, Mon Feb 17 16:50:21 2003 UTC | revision 1.10 by pfdietz, Wed Feb 26 12:44:50 2003 UTC | |
---|---|---|
# | Line 248 | Line 248 |
248 | (structure-subtype-p object tem)) | (structure-subtype-p object tem)) |
249 | ((setq tem (get tp 'deftype-definition)) | ((setq tem (get tp 'deftype-definition)) |
250 | (typep object | (typep object |
251 | (apply tem nil))))))) | (apply tem i))))))) |
252 | ||
253 | ||
254 | ;;; NORMALIZE-TYPE normalizes the type using the DEFTYPE definitions. | ;;; NORMALIZE-TYPE normalizes the type using the DEFTYPE definitions. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |