Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv26077/tests

Modified Files:
	float.pure.lisp 
Log Message:
0.7.8.51:
        Dirty workaround of FLOAT-RADIX not checking its argument
        type.


Index: float.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.pure.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- float.pure.lisp	7 Aug 2002 12:27:52 -0000	1.7
+++ float.pure.lisp	21 Oct 2002 05:37:46 -0000	1.8
@@ -48,3 +48,7 @@
 ;;; reported a fix for CMU CL, which was ported to sbcl-0.6.12.35.)
 (assert (typep (nth-value 1 (ignore-errors (float-radix "notfloat")))
 	       'type-error))
+
+(assert (typep (nth-value 1 (ignore-errors
+                              (funcall (fdefinition 'float-radix) "notfloat")))
+               'type-error))

Update of /cvsroot/sbcl/sbcl
In directory usw-pr-cvs1:/tmp/cvs-serv26077

Modified Files:
	version.lisp-expr 
Log Message:
0.7.8.51:
        Dirty workaround of FLOAT-RADIX not checking its argument
        type.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.602
retrieving revision 1.603
diff -u -d -r1.602 -r1.603
--- version.lisp-expr	20 Oct 2002 09:10:17 -0000	1.602
+++ version.lisp-expr	21 Oct 2002 05:37:46 -0000	1.603
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.8.50"
+"0.7.8.51"

Update of /cvsroot/sbcl/sbcl/src/code
In directory usw-pr-cvs1:/tmp/cvs-serv26077/src/code

Modified Files:
	float.lisp 
Log Message:
0.7.8.51:
        Dirty workaround of FLOAT-RADIX not checking its argument
        type.


Index: float.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/float.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- float.lisp	5 Mar 2002 03:53:05 -0000	1.15
+++ float.lisp	21 Oct 2002 05:37:46 -0000	1.16
@@ -310,15 +310,17 @@
     #!+long-float
     ((long-float) sb!vm:long-float-digits)))
 
-(defun float-radix (x)
-  #!+sb-doc
-  "Return (as an integer) the radix b of its floating-point argument."
-  ;; ANSI says this function "should signal an error if [..] argument
-  ;; is not a float". Since X is otherwise ignored, Python doesn't
-  ;; check the type by default, so we have to do it ourself:
-  (unless (floatp x)
-    (error 'type-error :datum x :expected-type 'float))
-  2)
+(setf (fdefinition 'float-radix)
+      ;; FIXME: Python flushes unused variable X in CLAMBDA, then
+      ;; flushes unused reference to X in XEP together with type
+      ;; check. When this is fixed, rewrite this definition in an
+      ;; ordinary form. -- APD, 2002-10-21
+      (lambda (x)
+        #!+sb-doc
+        "Return (as an integer) the radix b of its floating-point argument."
+        (unless (floatp x)
+          (error 'type-error :datum x :expected-type 'float))
+        2))
 
 ;;;; INTEGER-DECODE-FLOAT and DECODE-FLOAT