Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv32449/tests

Modified Files:
	clos.impure.lisp 
Log Message:
0.pre8.100:
	As suggested by Fufie (Stig Sandoe) on #lisp IRC, emit a 
	STYLE-WARNING for slots with names that are STRING= but not EQ.
	... test that we can nonetheless still make them, given the 
		insecurity I feel about my format string wizardry.


Index: clos.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- clos.impure.lisp	19 Apr 2003 13:14:47 -0000	1.33
+++ clos.impure.lisp	24 Apr 2003 15:22:52 -0000	1.34
@@ -598,5 +598,15 @@
 (defclass frc-3 () ())
 (assert (typep (make-instance 'frc-1 :a 2) (find-class 'frc-1)))
 (assert (typep (make-instance 'frc-2 :a 3) (find-class 'frc-2)))
+
+;;; check that we can define classes with two slots of different names
+;;; (even if it STYLE-WARNs).
+(defclass odd-name-class ()
+  ((name :initarg :name)
+   (cl-user::name :initarg :name2)))
+(let ((x (make-instance 'odd-name-class :name 1 :name2 2)))
+  (assert (= (slot-value x 'name) 1))
+  (assert (= (slot-value x 'cl-user::name) 2)))
+
 ;;;; success
 (sb-ext:quit :unix-status 104)

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1:/tmp/cvs-serv32449/src/pcl

Modified Files:
	std-class.lisp 
Log Message:
0.pre8.100:
	As suggested by Fufie (Stig Sandoe) on #lisp IRC, emit a 
	STYLE-WARNING for slots with names that are STRING= but not EQ.
	... test that we can nonetheless still make them, given the 
		insecurity I feel about my format string wizardry.


Index: std-class.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/std-class.lisp,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- std-class.lisp	19 Apr 2003 13:14:47 -0000	1.44
+++ std-class.lisp	24 Apr 2003 15:22:51 -0000	1.45
@@ -505,6 +505,26 @@
   (add-direct-subclasses class direct-superclasses)
   (make-class-predicate class predicate-name)
   (update-class class nil)
+  (do* ((slots (slot-value class 'slots) (cdr slots))
+	(dupes nil))
+       ((null slots) (when dupes
+		       (style-warn
+			;; FIXME: the indentation request ("~4I")
+			;; below appears not to do anything.  Finding
+			;; out why would be nice.  -- CSR, 2003-04-24
+			"~@<slot names with the same SYMBOL-NAME but ~
+                         different SYMBOL-PACKAGE (possible package problem) ~
+                         for class ~S:~@:_~4I~<~@{~S~^~:@_~}~:>~@:>"
+			class
+			dupes)))
+    (let* ((slot (car slots))
+	   (oslots (remove (slot-definition-name slot) (cdr slots)
+			   :test-not #'string= :key #'slot-definition-name)))
+      (when oslots
+	(pushnew (cons (slot-definition-name slot)
+		       (mapcar #'slot-definition-name oslots))
+		 dupes
+		 :test #'string= :key #'car))))
   (add-slot-accessors class direct-slots)
   (make-preliminary-layout class))

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv32449

Modified Files:
	version.lisp-expr 
Log Message:
0.pre8.100:
	As suggested by Fufie (Stig Sandoe) on #lisp IRC, emit a 
	STYLE-WARNING for slots with names that are STRING= but not EQ.
	... test that we can nonetheless still make them, given the 
		insecurity I feel about my format string wizardry.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.922
retrieving revision 1.923
diff -u -d -r1.922 -r1.923
--- version.lisp-expr	24 Apr 2003 08:55:34 -0000	1.922
+++ version.lisp-expr	24 Apr 2003 15:22:49 -0000	1.923
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.pre8.99"
+"0.pre8.100"

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv2483/tests

Modified Files:
	type.impure.lisp 
Log Message:
0.pre8.99:
	One more -0.0/0.0 fix:
	... numeric type ranges should be compared with EQUALP, not 
		EQUAL, to make (FLOAT 0.0) be the same as (FLOAT -0.0)


Index: type.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/type.impure.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- type.impure.lisp	23 Apr 2003 17:05:01 -0000	1.27
+++ type.impure.lisp	24 Apr 2003 08:55:36 -0000	1.28
@@ -224,6 +224,11 @@
 
 (assert-t-t (subtypep '(not (single-float 0.0 0.0)) '(not (member 0.0))))
 (assert-t-t (subtypep '(not (double-float 0.0d0 0.0d0)) '(not (member 0.0d0))))
+
+(assert-t-t (subtypep '(float -0.0) '(float 0.0)))
+(assert-t-t (subtypep '(float 0.0) '(float -0.0)))
+(assert-t-t (subtypep '(float (0.0)) '(float (-0.0))))
+(assert-t-t (subtypep '(float (-0.0)) '(float (0.0))))
 
 ;;;; Douglas Thomas Crosher rewrote the CMU CL type test system to
 ;;;; allow inline type tests for CONDITIONs and STANDARD-OBJECTs, and

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv2483/src/code

Modified Files:
	late-type.lisp 
Log Message:
0.pre8.99:
	One more -0.0/0.0 fix:
	... numeric type ranges should be compared with EQUALP, not 
		EQUAL, to make (FLOAT 0.0) be the same as (FLOAT -0.0)


Index: late-type.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/late-type.lisp,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -d -r1.78 -r1.79
--- late-type.lisp	23 Apr 2003 17:04:58 -0000	1.78
+++ late-type.lisp	24 Apr 2003 08:55:36 -0000	1.79
@@ -1417,8 +1417,8 @@
    (and (eq (numeric-type-class type1) (numeric-type-class type2))
 	(eq (numeric-type-format type1) (numeric-type-format type2))
 	(eq (numeric-type-complexp type1) (numeric-type-complexp type2))
-	(equal (numeric-type-low type1) (numeric-type-low type2))
-	(equal (numeric-type-high type1) (numeric-type-high type2)))
+	(equalp (numeric-type-low type1) (numeric-type-low type2))
+	(equalp (numeric-type-high type1) (numeric-type-high type2)))
    t))
 
 (!define-type-method (number :unparse) (type)

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv2483

Modified Files:
	version.lisp-expr 
Log Message:
0.pre8.99:
	One more -0.0/0.0 fix:
	... numeric type ranges should be compared with EQUALP, not 
		EQUAL, to make (FLOAT 0.0) be the same as (FLOAT -0.0)


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.921
retrieving revision 1.922
diff -u -d -r1.921 -r1.922
--- version.lisp-expr	23 Apr 2003 17:04:55 -0000	1.921
+++ version.lisp-expr	24 Apr 2003 08:55:34 -0000	1.922
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.pre8.98"
+"0.pre8.99"