r4868: Auto commit for Debian build

diff --git a/Makefile b/Makefile
new file mode 100644 (file)
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 9f86319c047855305f2594e8ab8f2b10306e362c..54150728a53da89ee0841ecd0d2bd1471d5d5409 100644 (file)
--- 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
 cl-kmrcl (1.41-1) unstable; urgency=low
 
   * Fix tests.lisp

diff --git a/package.lisp b/package.lisp
index 5a705ca44c72320eb792bac461f6c83a0f480992..4cba78b396287724a906d734cbe1f76e7808c136 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
 ;;;; 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
 ;;;;
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;


@@ -55,6 +55,9 @@
    #:remove-keyword
    #:remove-keywords
    #:nsubseq
    #:remove-keyword
    #:remove-keywords
    #:nsubseq

+
+   ;; math.lisp
+   #:ensure-integer

    
    ;; macros.lisp
    #:time-iterations
    
    ;; macros.lisp
    #:time-iterations

diff --git a/run-tests.lisp b/run-tests.lisp
new file mode 100644 (file)
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)