From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 7 May 2003 21:05:44 +0000 (+0000)
Subject: r4868: Auto commit for Debian build
X-Git-Tag: v1.96~220
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=b9b698680f54ccff3f8d2c7f43dd921f89b6db68

r4868: Auto commit for Debian build
---

diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..bcd6a48
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,4 @@
+all:
+
+clean:
+	@rm -rf `find . -name \*~ -or -name \*.fasl -or -name \*.x86f -or -name \*.fas -or -name \*.err -or -name \*.fasl[am][18]\* -or -name \*.ufsl -or -name \*.dfsl -or -name \*.cfsl`
diff --git a/debian/changelog b/debian/changelog
index 9f86319..5415072 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.42-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Wed,  7 May 2003 15:03:19 -0600
+
 cl-kmrcl (1.41-1) unstable; urgency=low
 
   * Fix tests.lisp
diff --git a/package.lisp b/package.lisp
index 5a705ca..4cba78b 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.27 2003/05/06 01:43:14 kevin Exp $
+;;;; $Id: package.lisp,v 1.28 2003/05/07 21:05:44 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -55,6 +55,9 @@
    #:remove-keyword
    #:remove-keywords
    #:nsubseq
+
+   ;; math.lisp
+   #:ensure-integer
    
    ;; macros.lisp
    #:time-iterations
diff --git a/run-tests.lisp b/run-tests.lisp
new file mode 100644
index 0000000..a795551
--- /dev/null
+++ b/run-tests.lisp
@@ -0,0 +1,20 @@
+(require 'rt)
+(load "kmrcl.asd")
+(load "kmrcl-tests.asd")
+(asdf:oos 'asdf:test-op 'kmrcl)
+
+(defun quit (&optional (code 0))
+  "Function to exit the Lisp implementation. Copied from CLOCC's QUIT function."
+    #+allegro (excl:exit code)
+    #+clisp (#+lisp=cl ext:quit #-lisp=cl lisp:quit code)
+    #+(or cmu scl) (ext:quit code)
+    #+cormanlisp (win32:exitprocess code)
+    #+gcl (lisp:bye code)
+    #+lispworks (lw:quit :status code)
+    #+lucid (lcl:quit code)
+    #+sbcl (sb-ext:quit :unix-status (typecase code (number code) (null 0) (t 1)))
+    #+mcl (ccl:quit code)
+    #-(or allegro clisp cmu scl cormanlisp gcl lispworks lucid sbcl mcl)
+    (error 'not-implemented :proc (list 'quit code)))
+
+(quit)