Commit bccf9469 authored by pfdietz's avatar pfdietz
Browse files

Some tweaks to reduce the number of compiler notes from sbcl.

parent 3ce0d850
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Wed Jul 2 07:05:41 2003
;;;; Contains: Macros used in ansi-aux and elsewhere.
(in-package :cl-test)
(declaim (optimize (safety 3)))
;;; Macros to avoid annoying sbcl warning notes
(defmacro handler-case (form &rest cases)
`(let () (cl:handler-case ,form ,@cases)))
(defmacro handler-bind (handlers &rest body)
`(let () (cl:handler-bind ,handlers (normally (progn ,@body)))))
;;; Macros for avoiding dead code warnings
(defvar *should-always-be-true* t)
(declaim (notinline should-never-be-called))
(defun should-never-be-called () nil)
(defmacro normally (form &optional (default-form
'(should-never-be-called)))
`(if *should-always-be-true* ,form ,default-form))
...@@ -223,12 +223,12 @@ Results: ~A~%" expected-number form n results)))) ...@@ -223,12 +223,12 @@ Results: ~A~%" expected-number form n results))))
for x in *universe* count for x in *universe* count
(block failed (block failed
(let ((p1 (handler-case (let ((p1 (handler-case
(funcall (the function p) x) (normally (funcall (the function p) x))
(error () (format t "(FUNCALL ~S ~S) failed~%" (error () (format t "(FUNCALL ~S ~S) failed~%"
P x) P x)
(return-from failed t)))) (return-from failed t))))
(p2 (handler-case (p2 (handler-case
(typep x TYPE) (normally (typep x TYPE))
(error () (format t "(TYPEP ~S '~S) failed~%" (error () (format t "(TYPEP ~S '~S) failed~%"
x TYPE) x TYPE)
(return-from failed t))))) (return-from failed t)))))
...@@ -273,7 +273,7 @@ Results: ~A~%" expected-number form n results)))) ...@@ -273,7 +273,7 @@ Results: ~A~%" expected-number form n results))))
If an error does occur, return type-error on TYPE-ERRORs, or the error If an error does occur, return type-error on TYPE-ERRORs, or the error
condition itself on other errors." condition itself on other errors."
`(locally (declare (optimize (safety 3))) `(locally (declare (optimize (safety 3)))
(handler-case ,form (handler-case (normally ,form)
(type-error () 'type-error) (type-error () 'type-error)
(error (c) c)))) (error (c) c))))
...@@ -282,7 +282,7 @@ condition itself on other errors." ...@@ -282,7 +282,7 @@ condition itself on other errors."
If an error does occur, return a symbol classify the error, or allow If an error does occur, return a symbol classify the error, or allow
the condition to go uncaught if it cannot be classified." the condition to go uncaught if it cannot be classified."
`(locally (declare (optimize (safety 3))) `(locally (declare (optimize (safety 3)))
(handler-case ,form (handler-case (normally ,form)
(undefined-function () 'undefined-function) (undefined-function () 'undefined-function)
(program-error () 'program-error) (program-error () 'program-error)
(package-error () 'package-error) (package-error () 'package-error)
...@@ -386,6 +386,10 @@ the condition to go uncaught if it cannot be classified." ...@@ -386,6 +386,10 @@ the condition to go uncaught if it cannot be classified."
;;; (defun complement (fn) ;;; (defun complement (fn)
;;; #'(lambda (&rest args) (not (apply fn args)))))) ;;; #'(lambda (&rest args) (not (apply fn args))))))
(declaim (ftype (function (&rest function) (values function &optional))
compose))
(defun compose (&rest fns) (defun compose (&rest fns)
(let ((rfns (reverse fns))) (let ((rfns (reverse fns)))
#'(lambda (x) (loop for f #'(lambda (x) (loop for f
...@@ -434,11 +438,14 @@ the condition to go uncaught if it cannot be classified." ...@@ -434,11 +438,14 @@ the condition to go uncaught if it cannot be classified."
" 'simple-base-string)) " 'simple-base-string))
(defparameter (defparameter
+base-chars+ #.(concatenate 'simple-base-string +base-chars+ #.(coerce
"abcdefghijklmnopqrstuvwxyz" (concatenate 'string
"ABCDEFGHIJKLMNOPQRSTUVWXYZ" "abcdefghijklmnopqrstuvwxyz"
"0123456789" "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
"<,>.?/\"':;[{]}~`!@#$%^&*()_-+= \\|")) "0123456789"
"<,>.?/\"':;[{]}~`!@#$%^&*()_-+= \\|")
'simple-base-string))
(declaim (type simple-base-string +base-chars+)) (declaim (type simple-base-string +base-chars+))
...@@ -1277,7 +1284,7 @@ the condition to go uncaught if it cannot be classified." ...@@ -1277,7 +1284,7 @@ the condition to go uncaught if it cannot be classified."
`(eval-when #+gcl (load eval compile) `(eval-when #+gcl (load eval compile)
#-gcl (:load-toplevel :compile-toplevel :execute) #-gcl (:load-toplevel :compile-toplevel :execute)
(handler-case (eval '(defstruct ,@args)) (handler-case (eval '(defstruct ,@args))
(serious-condition () nil)))) (serious-condition () nil))))
(defun sort-package-list (x) (defun sort-package-list (x)
(sort (copy-list x) (sort (copy-list x)
......
...@@ -1706,8 +1706,8 @@ ...@@ -1706,8 +1706,8 @@
dolist dolist
dotimes dotimes
formatter formatter
handler-bind cl:handler-bind
handler-case cl:handler-case
ignore-errors ignore-errors
in-package in-package
incf incf
......
...@@ -7,6 +7,7 @@ ...@@ -7,6 +7,7 @@
(:use :cl :regression-test) (:use :cl :regression-test)
;; #+gcl (:use defpackage) ;; #+gcl (:use defpackage)
(:nicknames) (:nicknames)
(:shadow #:handler-case #:handler-bind)
(:import-from "COMMON-LISP-USER" #:compile-and-load "==>") (:import-from "COMMON-LISP-USER" #:compile-and-load "==>")
(:export #:random-from-seq #:random-case #:coin #:random-permute)) (:export #:random-from-seq #:random-case #:coin #:random-permute))
......
...@@ -157,8 +157,9 @@ ...@@ -157,8 +157,9 @@
type-error) type-error)
(deftest coerce.error.5 (deftest coerce.error.5
(handler-case (eval '(coerce 'not-a-bound-function 'function)) (handler-case
(error () :caught)) (eval '(coerce 'not-a-bound-function 'function))
(error () :caught))
:caught) :caught)
(deftest coerce.error.6 (deftest coerce.error.6
......
...@@ -212,6 +212,7 @@ ...@@ -212,6 +212,7 @@
(deftest defgeneric.1 (deftest defgeneric.1
(let ((fn (eval '(defgeneric defgeneric.fun.1 (x y z) (let ((fn (eval '(defgeneric defgeneric.fun.1 (x y z)
(:method ((x t) (y t) (z t)) (list x y z)))))) (:method ((x t) (y t) (z t)) (list x y z))))))
(declare (type function fn))
(values (values
(typep* fn 'generic-function) (typep* fn 'generic-function)
(typep* fn 'standard-generic-function) (typep* fn 'standard-generic-function)
...@@ -226,6 +227,7 @@ ...@@ -226,6 +227,7 @@
(let ((fn (eval '(defgeneric defgeneric.fun.2 (x y z) (let ((fn (eval '(defgeneric defgeneric.fun.2 (x y z)
(:documentation "boo!") (:documentation "boo!")
(:method ((x t) (y t) (z t)) (vector x y z)))))) (:method ((x t) (y t) (z t)) (vector x y z))))))
(declare (type function fn))
(values (values
(typep* fn 'generic-function) (typep* fn 'generic-function)
(typep* fn 'standard-generic-function) (typep* fn 'standard-generic-function)
...@@ -252,6 +254,7 @@ ...@@ -252,6 +254,7 @@
(let ((fn (eval '(defgeneric defgeneric.fun.3 (x y) (let ((fn (eval '(defgeneric defgeneric.fun.3 (x y)
(:method ((x t) (y symbol)) (list x y)) (:method ((x t) (y symbol)) (list x y))
(:method ((x symbol) (y t)) (list y x)))))) (:method ((x symbol) (y t)) (list y x))))))
(declare (type function fn))
(values (values
(typep* fn 'generic-function) (typep* fn 'generic-function)
(typep* fn 'standard-generic-function) (typep* fn 'standard-generic-function)
...@@ -268,6 +271,7 @@ ...@@ -268,6 +271,7 @@
(:argument-precedence-order y x) (:argument-precedence-order y x)
(:method ((x t) (y symbol)) (list x y)) (:method ((x t) (y symbol)) (list x y))
(:method ((x symbol) (y t)) (list y x)))))) (:method ((x symbol) (y t)) (list y x))))))
(declare (type function fn))
(values (values
(typep* fn 'generic-function) (typep* fn 'generic-function)
(typep* fn 'standard-generic-function) (typep* fn 'standard-generic-function)
...@@ -282,6 +286,7 @@ ...@@ -282,6 +286,7 @@
(deftest defgeneric.5 (deftest defgeneric.5
(let ((fn (eval '(defgeneric defgeneric.fun.5 () (let ((fn (eval '(defgeneric defgeneric.fun.5 ()
(:method () (values)))))) (:method () (values))))))
(declare (type function fn))
(values (values
(typep* fn 'generic-function) (typep* fn 'generic-function)
(typep* fn 'standard-generic-function) (typep* fn 'standard-generic-function)
...@@ -293,6 +298,7 @@ ...@@ -293,6 +298,7 @@
(deftest defgeneric.6 (deftest defgeneric.6
(let ((fn (eval '(defgeneric defgeneric.fun.6 () (let ((fn (eval '(defgeneric defgeneric.fun.6 ()
(:method () (values 'a 'b 'c)))))) (:method () (values 'a 'b 'c))))))
(declare (type function fn))
(values (values
(typep* fn 'generic-function) (typep* fn 'generic-function)
(typep* fn 'standard-generic-function) (typep* fn 'standard-generic-function)
...@@ -304,6 +310,7 @@ ...@@ -304,6 +310,7 @@
(deftest defgeneric.7 (deftest defgeneric.7
(let ((fn (eval '(defgeneric defgeneric.fun.7 () (let ((fn (eval '(defgeneric defgeneric.fun.7 ()
(:method () (return-from defgeneric.fun.7 'a) 'b))))) (:method () (return-from defgeneric.fun.7 'a) 'b)))))
(declare (type function fn))
(values (values
(typep* fn 'generic-function) (typep* fn 'generic-function)
(typep* fn 'standard-generic-function) (typep* fn 'standard-generic-function)
...@@ -318,6 +325,7 @@ ...@@ -318,6 +325,7 @@
(list x y z)) (list x y z))
(:method ((p symbol) &optional q r) (:method ((p symbol) &optional q r)
(list r q p)))))) (list r q p))))))
(declare (type function fn))
(values (values
(typep* fn 'generic-function) (typep* fn 'generic-function)
(typep* fn 'standard-generic-function) (typep* fn 'standard-generic-function)
...@@ -343,6 +351,7 @@ ...@@ -343,6 +351,7 @@
(list x y z)) (list x y z))
(:method ((p symbol) &optional (q 's) (r 't)) (:method ((p symbol) &optional (q 's) (r 't))
(list r q p)))))) (list r q p))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 2) (funcall fn 1 2)
...@@ -360,6 +369,7 @@ ...@@ -360,6 +369,7 @@
(deftest defgeneric.10 (deftest defgeneric.10
(let ((fn (eval '(defgeneric defgeneric.fun.10 (x &rest y) (let ((fn (eval '(defgeneric defgeneric.fun.10 (x &rest y)
(:method ((x number) &key foo) (list x foo)))))) (:method ((x number) &key foo) (list x foo))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 :foo 'a) (funcall fn 1 :foo 'a)
...@@ -375,6 +385,7 @@ ...@@ -375,6 +385,7 @@
(deftest defgeneric.11 (deftest defgeneric.11
(let ((fn (eval '(defgeneric defgeneric.fun.11 (x &key) (let ((fn (eval '(defgeneric defgeneric.fun.11 (x &key)
(:method ((x number) &key foo) (list x foo)))))) (:method ((x number) &key foo) (list x foo))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 :foo 'a) (funcall fn 1 :foo 'a)
...@@ -390,6 +401,7 @@ ...@@ -390,6 +401,7 @@
(deftest defgeneric.12 (deftest defgeneric.12
(let ((fn (eval '(defgeneric defgeneric.fun.12 (x &key foo bar baz) (let ((fn (eval '(defgeneric defgeneric.fun.12 (x &key foo bar baz)
(:method ((x number) &rest y) (list x y)))))) (:method ((x number) &rest y) (list x y))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 :foo 'a) (funcall fn 1 :foo 'a)
...@@ -406,6 +418,7 @@ ...@@ -406,6 +418,7 @@
(let ((fn (eval '(defgeneric defgeneric.fun.13 (x &key) (let ((fn (eval '(defgeneric defgeneric.fun.13 (x &key)
(:method ((x number) &key foo) (list x foo)) (:method ((x number) &key foo) (list x foo))
(:method ((x symbol) &key bar) (list x bar)))))) (:method ((x symbol) &key bar) (list x bar))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 'a) (funcall fn 'a)
...@@ -430,6 +443,7 @@ ...@@ -430,6 +443,7 @@
(let ((fn (eval '(defgeneric defgeneric.fun.14 (x &key &allow-other-keys) (let ((fn (eval '(defgeneric defgeneric.fun.14 (x &key &allow-other-keys)
(:method ((x number) &key foo) (list x foo)) (:method ((x number) &key foo) (list x foo))
(:method ((x symbol) &key bar) (list x bar)))))) (:method ((x symbol) &key bar) (list x bar))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 'a) (funcall fn 'a)
...@@ -462,6 +476,7 @@ ...@@ -462,6 +476,7 @@
(:method ((x number) &key foo &allow-other-keys) (:method ((x number) &key foo &allow-other-keys)
(list x foo)) (list x foo))
(:method ((x symbol) &key bar) (list x bar)))))) (:method ((x symbol) &key bar) (list x bar))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 'a) (funcall fn 'a)
...@@ -496,6 +511,7 @@ ...@@ -496,6 +511,7 @@
(list x foo)) (list x foo))
(:method ((x symbol) &key foo) (:method ((x symbol) &key foo)
(list x foo)))))) (list x foo))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 :foo nil) (funcall fn 1 :foo nil)
...@@ -516,6 +532,7 @@ ...@@ -516,6 +532,7 @@
(list x foo (notnot foo-p))) (list x foo (notnot foo-p)))
(:method ((x symbol) &key foo) (:method ((x symbol) &key foo)
(list x foo)))))) (list x foo))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 :foo nil) (funcall fn 1 :foo nil)
...@@ -536,6 +553,7 @@ ...@@ -536,6 +553,7 @@
(list x y)) (list x y))
(:method ((x symbol) &optional (z nil z-p)) (:method ((x symbol) &optional (z nil z-p))
(list x z (notnot z-p))))))) (list x z (notnot z-p)))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 nil) (funcall fn 1 nil)
...@@ -554,6 +572,7 @@ ...@@ -554,6 +572,7 @@
(let ((fn (eval '(defgeneric defgeneric.fun.19 (x &key) (let ((fn (eval '(defgeneric defgeneric.fun.19 (x &key)
(:method ((x number) &key ((:bar foo) 'a foo-p)) (:method ((x number) &key ((:bar foo) 'a foo-p))
(list x foo (notnot foo-p))))))) (list x foo (notnot foo-p)))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 :bar nil) (funcall fn 1 :bar nil)
...@@ -569,6 +588,7 @@ ...@@ -569,6 +588,7 @@
(z (if y-p (1+ y) (+ x 10)) (z (if y-p (1+ y) (+ x 10))
z-p)) z-p))
(list x y (notnot y-p) z (notnot z-p))))))) (list x y (notnot y-p) z (notnot z-p)))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 5) (funcall fn 1 5)
...@@ -584,6 +604,7 @@ ...@@ -584,6 +604,7 @@
(z (if y-p (1+ y) (+ x 10)) (z (if y-p (1+ y) (+ x 10))
z-p)) z-p))
(list x y (notnot y-p) z (notnot z-p))))))) (list x y (notnot y-p) z (notnot z-p)))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 :y 5) (funcall fn 1 :y 5)
...@@ -600,6 +621,7 @@ ...@@ -600,6 +621,7 @@
(let ((fn (eval '(defgeneric defgeneric.fun.22 (x &key) (let ((fn (eval '(defgeneric defgeneric.fun.22 (x &key)
(:method ((x number) &key ((:allow-other-keys y))) (:method ((x number) &key ((:allow-other-keys y)))
(list x y)))))) (list x y))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 1 :allow-other-keys nil) (funcall fn 1 :allow-other-keys nil)
...@@ -624,6 +646,7 @@ ...@@ -624,6 +646,7 @@
(let ((fn (eval '(defgeneric defgeneric.fun.23 (x) (let ((fn (eval '(defgeneric defgeneric.fun.23 (x)
(:method ((x number) &aux (y (1+ x))) (list x y)) (:method ((x number) &aux (y (1+ x))) (list x y))
(:method ((x symbol) &aux (z (list x))) (list x z)))))) (:method ((x symbol) &aux (z (list x))) (list x z))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
(funcall fn 'a))) (funcall fn 'a)))
...@@ -649,6 +672,7 @@ ...@@ -649,6 +672,7 @@
&aux (z (list x y (notnot y-p) &aux (z (list x y (notnot y-p)
bar (notnot bar-p)))) bar (notnot bar-p))))
z))))) z)))))
(declare (type function fn))
(values (values
(funcall fn 'a) (funcall fn 'a)
(funcall fn 'a 'b) (funcall fn 'a 'b)
...@@ -662,6 +686,7 @@ ...@@ -662,6 +686,7 @@
(declare (optimize (safety 3))) (declare (optimize (safety 3)))
(:method ((x symbol)) x) (:method ((x symbol)) x)
(declare (optimize (debug 3))))))) (declare (optimize (debug 3)))))))
(declare (type function fn))
(funcall fn 'a)) (funcall fn 'a))
a) a)
...@@ -675,6 +700,7 @@ ...@@ -675,6 +700,7 @@
(:method ((x number) (y number)) (+ x y)) (:method ((x number) (y number)) (+ x y))
(:method ((x string) (y string)) (:method ((x string) (y string))
(concatenate 'string x y)))))) (concatenate 'string x y))))))
(declare (type function fn))
(values (values
(funcall fn 1 2) (funcall fn 1 2)
(funcall fn "1" "2"))) (funcall fn "1" "2")))
...@@ -686,6 +712,7 @@ ...@@ -686,6 +712,7 @@
(:method ((x integer) &key foo) (list x foo)) (:method ((x integer) &key foo) (list x foo))
(:method ((x number) &key bar) (list x bar)) (:method ((x number) &key bar) (list x bar))
(:method ((x t) &key baz) (list x baz)))))) (:method ((x t) &key baz) (list x baz))))))
(declare (type function fn))
(values (values
(funcall fn 1) (funcall fn 1)
...@@ -725,6 +752,7 @@ ...@@ -725,6 +752,7 @@
(eval '(defgeneric defgeneric.fun.29 (x &key) (eval '(defgeneric defgeneric.fun.29 (x &key)
(:method ((x defgeneric.29.class.1) &key foo) foo) (:method ((x defgeneric.29.class.1) &key foo) foo)
(:method ((x defgeneric.29.class.2) &key bar) bar))))) (:method ((x defgeneric.29.class.2) &key bar) bar)))))
(declare (type function fn))
(let ((x (make-instance 'defgeneric.29.class.3))) (let ((x (make-instance 'defgeneric.29.class.3)))
(values (values
(funcall fn x) (funcall fn x)
...@@ -744,6 +772,7 @@ ...@@ -744,6 +772,7 @@
(:generic-function-class substandard-generic-function) (:generic-function-class substandard-generic-function)
(:method ((x symbol)) 1) (:method ((x symbol)) 1)
(:method ((x integer)) 2))))) (:method ((x integer)) 2)))))
(declare (type function fn))
(values (values
(typep* fn 'substandard-generic-function) (typep* fn 'substandard-generic-function)
(typep* fn 'standard-generic-function) (typep* fn 'standard-generic-function)
...@@ -777,6 +806,7 @@ ...@@ -777,6 +806,7 @@
(assert (null args)) (setf (car y) x)) (assert (null args)) (setf (car y) x))
(:method (x (y array) &rest args) (:method (x (y array) &rest args)
(setf (apply #'aref y args) x)))))) (setf (apply #'aref y args) x))))))
(declare (type function fn))
(values (values
(let ((z (list 'a 'b))) (let ((z (list 'a 'b)))
(list (list
...@@ -802,6 +832,7 @@ ...@@ -802,6 +832,7 @@
"FOO" "FOO"
(declare (optimize (safety 3))) (declare (optimize (safety 3)))
x))))) x)))))
(declare (type function fn))
(values (values
(funcall fn 'a) (funcall fn 'a)
(let ((method (first (compute-applicable-methods fn '(a))))) (let ((method (first (compute-applicable-methods fn '(a)))))
......
...@@ -67,22 +67,19 @@ ...@@ -67,22 +67,19 @@
t)) t))
(deftest ,(make-def-cond-name name "HANDLER-CASE-1") (deftest ,(make-def-cond-name name "HANDLER-CASE-1")
(let ((c (make-condition ',name-symbol))) (let ((c (make-condition ',name-symbol)))
(handler-case (signal c) (handler-case (normally (signal c))
(,name-symbol (c1) (eqt c c1)))) (,name-symbol (c1) (eqt c c1))))
t) t)
(deftest ,(make-def-cond-name name "HANDLER-CASE-2") (deftest ,(make-def-cond-name name "HANDLER-CASE-2")
(let ((c (make-condition ',name-symbol))) (let ((c (make-condition ',name-symbol)))
(handler-case (signal c) (handler-case (normally (signal c))
(condition (c1) (eqt c c1)))) (condition (c1) (eqt c c1))))
t) t)
,@(unless (some #'(lambda (ct) (subtypep ct 'error)) parents) ,@(unless (some #'(lambda (ct) (subtypep ct 'error)) parents)
`((deftest ,(make-def-cond-name name "HANDLER-CASE-3") `((deftest ,(make-def-cond-name name "HANDLER-CASE-3")
(let ((c (make-condition ',name-symbol))) (let ((c (make-condition ',name-symbol)))
(handler-case (signal c) (handler-case (normally (signal c))
(error () nil) (error () nil)
(,name-symbol (c2) (eqt c c2)))) (,name-symbol (c2) (eqt c c2))))
t))) t)))
))) )))
...@@ -288,13 +288,13 @@ ...@@ -288,13 +288,13 @@
(with-output-to-string (s) (print-object c s))) (with-output-to-string (s) (print-object c s)))
"The report for condition-16") "The report for condition-16")
(defun condition-17-report (c s)
(format s "condition-17: ~A" (condition-17/s c)))
(define-condition-with-tests condition-17 nil (define-condition-with-tests condition-17 nil
((s :initarg :i1 :reader condition-17/s )) ((s :initarg :i1 :reader condition-17/s ))
(:report condition-17-report)) (:report condition-17-report))
(defun condition-17-report (c s)
(format s "condition-17: ~A" (condition-17/s c)))
(deftest condition-17-report.1 (deftest condition-17-report.1
(let ((*print-escape* nil) (let ((*print-escape* nil)
(c (make-condition 'condition-17 :i1 1234))) (c (make-condition 'condition-17 :i1 1234)))
......
...@@ -6,6 +6,7 @@ ...@@ -6,6 +6,7 @@
;;; (load "rt.o") ;;; (load "rt.o")
(load "cl-test-package.lsp") (load "cl-test-package.lsp")
(in-package :cl-test) (in-package :cl-test)
(compile-and-load "ansi-aux-macros.lsp")
(load "universe.lsp") (load "universe.lsp")
(compile-and-load "random-aux.lsp") (compile-and-load "random-aux.lsp")
(compile-and-load "ansi-aux.lsp") (compile-and-load "ansi-aux.lsp")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment