projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.10.23:
[sbcl.git]
/
src
/
pcl
/
braid.lisp
diff --git
a/src/pcl/braid.lisp
b/src/pcl/braid.lisp
index
79dd636
..
d044e7d
100644
(file)
--- a/
src/pcl/braid.lisp
+++ b/
src/pcl/braid.lisp
@@
-44,7
+44,7
@@
(i 0 (1+ i)))
((>= i no-of-slots)) ;endp rem-slots))
(declare (list rem-slots)
(i 0 (1+ i)))
((>= i no-of-slots)) ;endp rem-slots))
(declare (list rem-slots)
- (type sb-int:index i))
+ (type index i))
(setf (aref slots i) (first rem-slots)))
slots))
(t
(setf (aref slots i) (first rem-slots)))
slots))
(t
@@
-628,7
+628,7
@@
(!bootstrap-class-predicates nil)
(!bootstrap-built-in-classes)
(!bootstrap-class-predicates nil)
(!bootstrap-built-in-classes)
- (sb-int:dohash (name x *find-class*)
+ (dohash (name x *find-class*)
(let* ((class (find-class-from-cell name x))
(layout (class-wrapper class))
(lclass (sb-kernel:layout-class layout))
(let* ((class (find-class-from-cell name x))
(layout (class-wrapper class))
(lclass (sb-kernel:layout-class layout))