X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fpcl.impure.lisp;h=848654086e8363176fc2c99f53c3242af47b8cfd;hb=675c5a9f9e3028bc2fd922ed6f570f01cf8c41cf;hp=e6ce531025dc88ec2261b2f6ae57e37f27ad4b12;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/tests/pcl.impure.lisp b/tests/pcl.impure.lisp
index e6ce531..8486540 100644
--- a/tests/pcl.impure.lisp
+++ b/tests/pcl.impure.lisp
@@ -1,3 +1,16 @@
+;;;; miscellaneous side-effectful tests of CLOS
+
+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; While most of SBCL is derived from the CMU CL system, the test
+;;;; files (like this one) were written from scratch after the fork
+;;;; from CMU CL.
+;;;; 
+;;;; This software is in the public domain and is provided with
+;;;; absolutely no warranty. See the COPYING and CREDITS files for
+;;;; more information.
+
 (defpackage "FOO"
   (:use "CL"))
 (in-package "FOO")
@@ -30,3 +43,7 @@
 (defun function-using-gf-defined-in-this-file (x y n)
   (unless (minusp n)
     (gf-defined-in-this-file x y)))
+
+;;;; success
+
+(sb-ext:quit :unix-status 104)