/[gcl]/gcl/lsp/gcl_sloop.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_sloop.lsp

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

revision 1.2 by camm, Sun Sep 14 02:43:06 2003 UTC revision 1.3 by camm, Tue Oct 7 21:06:32 2003 UTC
# Line 589  otherwise nil" Line 589  otherwise nil"
589    (cond (type (list 'the type symbol ))    (cond (type (list 'the type symbol ))
590          (t symbol)))          (t symbol)))
591    
592  (defun type-error ()  (defun sloop-type-error ()
593    (error "While checking a bound of a sloop, I found the wrong type    (error "While checking a bound of a sloop, I found the wrong type
594  for something in sloop::*automatic-declarations*.  for something in sloop::*automatic-declarations*.
595      Perhaps your limit is wrong?      Perhaps your limit is wrong?
# Line 637  recompile.")) Line 637  recompile."))
637                                         'the-value *type-test-limit*)                                         'the-value *type-test-limit*)
638                                (or chk value))                                (or chk value))
639                             ',type)                             ',type)
640                            (type-error))                            (sloop-type-error))
641                           ,(or chk value)))))))                           ,(or chk value)))))))
642          (t (list value))))          (t (list value))))
643    
# Line 834  recompile.")) Line 834  recompile."))
834                                                 (or inc 1))))                                                 (or inc 1))))
835                                   (t `(> ,var  ,(+ most-negative-fixnum                                   (t `(> ,var  ,(+ most-negative-fixnum
836                                                    (or inc 1)))))                                                    (or inc 1)))))
837                            (type-error))                            (sloop-type-error))
838                         *loop-increment*)                         *loop-increment*)
839                       )))))                       )))))
840            

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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