/[gcl]/gcl/cmpnew/gcl_cmpenv.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpenv.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Sat Dec 11 00:34:35 2004 UTC revision 1.8 by camm, Fri Dec 17 21:26:30 2004 UTC
# Line 421  Line 421 
421  ;;                     (dft (and (symbolp dtype) (get dtype 'si::deftype-definition)))  ;;                     (dft (and (symbolp dtype) (get dtype 'si::deftype-definition)))
422  ;;                     (dtype (or (and dft (funcall dft)) dtype)))  ;;                     (dtype (or (and dft (funcall dft)) dtype)))
423                    (if (consp dtype)                    (if (consp dtype)
424                      (let ((stype (car dtype)))                      (let* ((dtype (si::normalize-type dtype))
425                               (stype (car dtype)))
426                        (cmpck (or (not (symbolp stype)) (cdddr dtype)) "The declaration ~s is illegal." decl)                        (cmpck (or (not (symbolp stype)) (cdddr dtype)) "The declaration ~s is illegal." decl)
427                        (case stype                        (case stype
428                          (satisfies                          (satisfies

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26