projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.4.84: better EQUAL hash-tables, revert 0.9.15.21 (non-compliant SXHASH)
[sbcl.git]
/
src
/
pcl
/
low.lisp
diff --git
a/src/pcl/low.lisp
b/src/pcl/low.lisp
index
1a1be86
..
4ace205
100644
(file)
--- a/
src/pcl/low.lisp
+++ b/
src/pcl/low.lisp
@@
-67,7
+67,6
@@
;; to find out, I just overrode the LAYOUT
;; default here. -- WHN 19991204
(invalid nil))
;; to find out, I just overrode the LAYOUT
;; default here. -- WHN 19991204
(invalid nil))
- (:conc-name %wrapper-)
(:constructor make-wrapper-internal)
(:copier nil))
(instance-slots-layout nil :type list)
(:constructor make-wrapper-internal)
(:copier nil))
(instance-slots-layout nil :type list)
@@
-306,11
+305,8
@@
;;; The definition of STRUCTURE-TYPE-P was moved to early-low.lisp.
;;; The definition of STRUCTURE-TYPE-P was moved to early-low.lisp.
-(defun get-structure-dd (type)
- (layout-info (classoid-layout (find-classoid type))))
-
(defun structure-type-included-type-name (type)
(defun structure-type-included-type-name (type)
- (let ((include (dd-include (get-structure-dd type))))
+ (let ((include (dd-include (find-defstruct-description type))))
(if (consp include)
(car include)
include)))
(if (consp include)
(car include)
include)))
@@
-318,8
+314,8
@@
(defun structure-type-slot-description-list (type)
(nthcdr (length (let ((include (structure-type-included-type-name type)))
(and include
(defun structure-type-slot-description-list (type)
(nthcdr (length (let ((include (structure-type-included-type-name type)))
(and include
- (dd-slots (get-structure-dd include)))))
- (dd-slots (get-structure-dd type))))
+ (dd-slots (find-defstruct-description include)))))
+ (dd-slots (find-defstruct-description type))))
(defun structure-slotd-name (slotd)
(dsd-name slotd))
(defun structure-slotd-name (slotd)
(dsd-name slotd))
@@
-332,7
+328,7
@@
(defun structure-slotd-writer-function (type slotd)
(if (dsd-read-only slotd)
(defun structure-slotd-writer-function (type slotd)
(if (dsd-read-only slotd)
- (let ((dd (get-structure-dd type)))
+ (let ((dd (find-defstruct-description type)))
(coerce (slot-setter-lambda-form dd slotd) 'function))
(fdefinition `(setf ,(dsd-accessor-name slotd)))))
(coerce (slot-setter-lambda-form dd slotd) 'function))
(fdefinition `(setf ,(dsd-accessor-name slotd)))))