/[gcl]/gcl/ansi-tests/misc.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/misc.lsp

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

revision 1.247 by pfdietz, Tue Aug 9 12:13:49 2005 UTC revision 1.248 by pfdietz, Wed Aug 10 01:19:09 2005 UTC
# Line 10890  Broken at C::WT-MAKE-CLOSURE. Line 10890  Broken at C::WT-MAKE-CLOSURE.
10890                     (the (member "foo" #\- :b "bar") p2))))                     (the (member "foo" #\- :b "bar") p2))))
10891     #*1 :b)     #*1 :b)
10892    nil)    nil)
10893    
10894    ;;; Error in APPLY [or a callee]: The tag CT1 is undefined.
10895    
10896    (deftest misc.613
10897      (funcall
10898       (compile
10899        nil
10900        '(lambda (a)
10901          (declare (type (integer -20326914 13338097) a))
10902          (declare (ignorable a))
10903          (declare (optimize (space 3) (safety 1) (debug 3)
10904                    (speed 1) (compilation-speed 3)))
10905          (let* ((*s7* (catch 'ct1
10906                         (reduce #'(lambda (lmv6 lmv5)
10907                                     (throw 'ct1 0))
10908                                 (list a 0 0) :end 2))))
10909            (declare (special *s7*))
10910            0)))
10911       1)
10912      0)
10913    
10914    ;;; Error in MULTIPLE-VALUE-BIND [or a callee]: Cannot get relocated section contents
10915    
10916    (deftest misc.614
10917      (funcall
10918       (compile
10919        nil
10920        '(lambda (a)
10921          (declare (type (integer -3873004182 -3717314779) a))
10922          (declare (ignorable a))
10923          (declare (optimize (debug 0) (safety 1) (speed 3)
10924                    (space 0) (compilation-speed 0)))
10925          (let* ((v1 (make-array nil :initial-element
10926                                 (reduce #'logand (list a 0 a)))))
10927            (declare (dynamic-extent v1))
10928            0)))
10929       -3755148485)
10930      0)
10931    

Legend:
Removed from v.1.247  
changed lines
  Added in v.1.248

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