/[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.144 by pfdietz, Tue Sep 14 02:49:52 2004 UTC revision 1.145 by pfdietz, Tue Sep 14 13:16:50 2004 UTC
# Line 1433  Line 1433 
1433    (funcall    (funcall
1434     (compile     (compile
1435      nil      nil
1436      '(lambda (a)      '(lambda (a b)
1437         (declare (optimize (speed 1) (space 1) (safety 1) (debug 3)         (declare (optimize (speed 1) (space 1) (safety 1) (debug 3)
1438                            (compilation-speed 1)))                            (compilation-speed 1)))
1439         (catch 'ct4         (catch 'ct4
# Line 1444  Line 1444 
1444                ((-31 -150) a)                ((-31 -150) a)
1445                (t b)))                (t b)))
1446            (throw 'ct4 0)))))            (throw 'ct4 0)))))
1447     10)     10 20)
1448    0)    0)
1449    
1450  (deftest misc.107e  (deftest misc.107e
# Line 7518  Broken at C::WT-C-INLINE-LOC. Line 7518  Broken at C::WT-C-INLINE-LOC.
7518  ;;; "The value #<SB-C::COMBINATION :FUN # :ARGS (# # #) {C44D1C1}>  ;;; "The value #<SB-C::COMBINATION :FUN # :ARGS (# # #) {C44D1C1}>
7519  ;;;   is not of type SB-C::REF."  ;;;   is not of type SB-C::REF."
7520    
   
7521  (deftest misc.392  (deftest misc.392
7522    (funcall    (funcall
7523     (compile     (compile
# Line 7530  Broken at C::WT-C-INLINE-LOC. Line 7529  Broken at C::WT-C-INLINE-LOC.
7529         (prog2 0 0 (loop for lv4 below 3 count (or b (/= b))))))         (prog2 0 0 (loop for lv4 below 3 count (or b (/= b))))))
7530     1 2)     1 2)
7531    0)    0)
7532    
7533    ;;; cmucl (2004-09 snapshot)
7534    ;;; "Error in function C::CORE-CALL-TOP-LEVEL-LAMBDA:
7535    ;;;   Unresolved forward reference."
7536    ;;; (in C::CORE-CALL-TOP-LEVEL-LAMBDA)
7537    
7538    (deftest misc.393
7539      (funcall
7540       (compile
7541        nil
7542        '(lambda (a b)
7543           (declare (type (integer -995205 1035654) a))
7544           (declare (type (integer 473 114804994247) b))
7545           (declare (ignorable a b))
7546           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7547           (declare
7548            (optimize (debug 3) (speed 2) (compilation-speed 0) (space 3)
7549                      (safety 3)))
7550           (labels ((%f7
7551                     (f7-1 f7-2 f7-3
7552                           &optional (f7-4 (lcm (if (>= b a) 0 a))) (f7-5 0)
7553                           &key)
7554                     0))
7555             (progn (%f7 (%f7 b a a b) b 0) 0))))
7556       447930 66120263479)
7557      0)
7558    
7559    (deftest misc.393a
7560      (funcall
7561       (compile
7562        nil
7563        '(lambda (a b)
7564           (declare (type (integer -76 86) a))
7565           (declare (type (integer -13771285280 109) b))
7566           (declare (ignorable a b))
7567           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7568           (declare
7569            (optimize (safety 3) (space 1) (debug 2) (compilation-speed 3)
7570                      (speed 3)))
7571           (dotimes (iv1 2 0)
7572             (case (min -3693810 a iv1) ((26 -4) (ldb (byte 13 0) a)) (t b)))))
7573       56 -1579426331)
7574      0)
7575    
7576    ;;; cmucl (2004-09 snapshot)
7577    ;;; Wrong values
7578    
7579    (deftest misc.394
7580      (funcall
7581       (compile
7582        nil
7583        '(lambda (a b)
7584           (declare (type (integer -76645001 98715919) a))
7585           (declare (type (integer 0 856472753903) b))
7586           (declare (ignorable a b))
7587           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7588           (declare
7589            (optimize (speed 2) (space 0) (debug 3) (compilation-speed 0)
7590                      (safety 3)))
7591           (logeqv 0 b)))
7592       -34528661 843541658238)
7593      -843541658239)
7594    
7595    (deftest misc.395
7596      (funcall
7597       (compile
7598        nil
7599        '(lambda (a b)
7600           (declare (type (integer 6429252570156 8761983588786) a))
7601           (declare (type (integer -400378288 4971722) b))
7602           (declare (ignorable a b))
7603           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7604           (declare
7605            (optimize (debug 3) (speed 3) (space 2) (safety 0)
7606                      (compilation-speed 3)))
7607           (+ (shiftf a 8496033756259) (min 0 b))))
7608       8369430915156 -369704905)
7609      8369061210251)
7610    
7611    ;;; "The assertion (EQ (CAR C::STACK) C::CONT) failed."
7612    (deftest misc.396
7613      (funcall
7614       (compile
7615        nil
7616        '(lambda (a b)
7617           (declare (type (integer -1601 485) a))
7618           (declare (type (integer -190428560464 -1444494) b))
7619           (declare (ignorable a b))
7620           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7621           (declare
7622            (optimize (debug 0) (space 2) (speed 0) (safety 3)
7623                      (compilation-speed 2)))
7624           (apply (constantly 0) 0 (list (signum b)))))
7625       -1365 -46960621335)
7626      0)
7627    
7628    ;;; "The assertion (EQ (C::FUNCTIONAL-KIND (C::LAMBDA-HOME C::FUN))
7629    ;;;      :TOP-LEVEL) failed."
7630    (deftest misc.397
7631      (funcall
7632       (compile
7633        nil
7634        '(lambda (a b)
7635           (declare (type (integer -168258525920 -2044) a))
7636           (declare (type (integer -522 54) b))
7637           (declare (ignorable a b))
7638           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7639           (declare
7640            (optimize (speed 0) (safety 3) (compilation-speed 1) (space 0)
7641                      (debug 2)))
7642           (labels ((%f4 (f4-1 f4-2 &key)
7643                         (flet ((%f7 (f7-1 f7-2 f7-3 &optional &key (key1 a))
7644                                     (progv '(*s1* *s6* *s2*) (list a 0 key1) f4-1)))
7645                           f4-2)))
7646             (apply #'%f4 (list a 0)))))
7647       -156882103995 -38)
7648      0)
7649    
7650    ;;; "Error in function C::CLOSURE-POSITION:
7651    ;;;   Can't find #<C::LAMBDA-VAR #x594259BD
7652    ;;;                  NAME= IV1
7653    ;;;                  TYPE= #<NUMERIC-TYPE (MOD 3)>>"
7654    (deftest misc.398
7655      (funcall
7656       (compile
7657        nil
7658        '(lambda (a b)
7659           (declare (type (integer -319 7353) a))
7660           (declare (type (integer 31751 4233916489) b))
7661           (declare (ignorable a b))
7662           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7663           (declare
7664            (optimize (safety 3) (compilation-speed 1) (debug 1) (speed 0)
7665                      (space 0)))
7666           (conjugate
7667            (if t
7668                (labels ((%f12 (f12-1 f12-2 f12-3)
7669                               0))
7670                  (%f12 0 b 0))
7671              (dotimes (iv1 2 0) (catch 'ct2 a))))))
7672       4430 3476635674)
7673      0)
7674    
7675    ;;; "NIL is not of type C::CONTINUATION"
7676    ;;; in C::FIND-PUSHED-CONTINUATIONS
7677    (deftest misc.399
7678      (funcall
7679       (compile
7680        nil
7681        '(lambda (a)
7682           (declare (type (integer -3 1) a))
7683           (declare (ignorable a))
7684           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7685           (declare
7686            (optimize (space 0) (debug 0) (speed 3) (compilation-speed 2)
7687                      (safety 3)))
7688           (catch 'ct8 (logior a -457019 -1))))
7689       0)
7690      -1)
7691    
7692    ;;; Wrong value
7693    (deftest misc.400
7694      (funcall
7695       (compile
7696        nil
7697        '(lambda (a)
7698           (declare (type (integer 3376 4762) a))
7699           (declare (ignorable a))
7700           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7701           (declare
7702            (optimize (debug 0) (safety 0) (space 0) (compilation-speed 3)
7703                      (speed 3)))
7704           (case (lognand 775 a) ((-7) 0) (t 4))))
7705       4182)
7706      0)
7707    
7708    ;;; Invalid number of arguments: 1
7709    (deftest misc.401
7710      (funcall
7711       (compile
7712        nil
7713        '(lambda (a)
7714           (declare (type (integer 7299 257071514003) a))
7715           (declare (ignorable a))
7716           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7717           (declare
7718            (optimize (compilation-speed 2) (space 1) (safety 2) (speed 1)
7719                      (debug 2)))
7720           (logeqv (setq a 220250126156) 0)))
7721       157474319912)
7722      -220250126157)
7723    
7724    ;;; "The assertion (EQ (CAR C::NEW-STACK) C::CONT) failed."
7725    (deftest misc.402
7726      (funcall
7727       (compile
7728        nil
7729        '(lambda (a)
7730           (declare (type (integer -19116544 21344004) a))
7731           (declare (ignorable a))
7732           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7733           (declare
7734            (optimize (space 1) (safety 3) (debug 1) (compilation-speed 0)
7735                      (speed 0)))
7736           (dotimes (iv3 2 0)
7737             (progn
7738               (apply (constantly 0)
7739                      (list
7740                       (let* ((*s1* 0))
7741                         *s1*)))
7742               0))))
7743       10)
7744      0)
7745    
7746    ;;; "The assertion C::INDIRECT failed."
7747    (deftest misc.403
7748      (funcall
7749       (compile
7750        nil
7751        '(lambda (a)
7752           (declare (type (integer -6456 -32) a))
7753           (declare (ignorable a))
7754           #+cmucl (declare (optimize (extensions:inhibit-warnings 3)))
7755           (declare
7756            (optimize (space 3) (safety 1) (compilation-speed 1) (speed 0)
7757                      (debug 0)))
7758           (dotimes (iv1 0 a) (loop for lv4 below 3 sum (catch 'ct8 0)))))
7759       -1648)
7760      -1648)
7761    
7762    
7763    
7764    
7765      
7766    
7767    

Legend:
Removed from v.1.144  
changed lines
  Added in v.1.145

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