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 |
|
|