1 ;;;; rudimentary tests ("smoke tests") for miscellaneous stuff which
2 ;;;; doesn't seem to deserve specialized files at the moment
4 ;;;; This software is part of the SBCL system. See the README file for
7 ;;;; While most of SBCL is derived from the CMU CL system, the test
8 ;;;; files (like this one) were written from scratch after the fork
11 ;;;; This software is in the public domain and is provided with
12 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
13 ;;;; more information.
15 (cl:in-package :cl-user)
17 ;;; ROOM should run without signalling an error. (bug 247)
22 ;;; DESCRIBE should run without signalling an error.
23 (defstruct to-be-described a b)
24 (describe (make-to-be-described))
28 (describe (find-package :cl))
30 (describe #(a vector))
32 ;;; COPY-SYMBOL should work without signalling an error, even if the
33 ;;; symbol is unbound.
37 (copy-symbol '*baz* t)
39 ;;; SETQ should return its value.
40 (assert (typep (setq *baz* 1) 'integer))
41 (assert (typep (in-package :cl-user) 'package))
43 ;;; PROFILE should run without obvious breakage
44 (defun profiled-fun ()
46 (profile profiled-fun)
47 (loop repeat 100000 do (profiled-fun))
51 (quit :unix-status 104)