Changeset 327

Timestamp:

Jan 17, 2004, 7:58:52 PM (21 years ago)

Author:

Gary Byers

Message:

More pathname info for DESCRIBE. Use INSTANCE-SLOTS vice INSTANCE.SLOTS,
so .accessors will work on other instance types.

File:

• trunk/ccl/library/lispequ.lisp (modified) (2 diffs)

trunk/ccl/library/lispequ.lisp

@@ -262 +262 @@
   %pathname-directory
   %pathname-name
-  %pathname-type
+  %pathname-type)
+
+(def-accessors (logical-pathname) %svref
+  ()                                    ; 'logical-pathname
+  %pathname-directory
+  %pathname-name
+  %pathname-type  
   %logical-pathname-host
   %logical-pathname-version)
@@ -941 +947 @@
 ;;; Doing this via %SLOT-REF traps if the slot is unbound
 (defmacro standard-instance-instance-location-access (instance location)
-  `(%slot-ref (instance.slots ,instance) ,location))
+  `(%slot-ref (instance-slots ,instance) ,location))
 
 ;;; Get the "raw" contents of the slot, even if it's %SLOT-UNBOUND-MARKER.
 (defmacro %standard-instance-instance-location-access (instance location)
-  `(%svref (instance.slots ,instance) ,location))
+  `(%svref (instance-slots ,instance) ,location))
 
 (defmacro set-standard-instance-instance-location-access (instance location new)
-  `(setf (%svref (instance.slots ,instance) ,location) ,new))
+  `(setf (%svref (instance-slots ,instance) ,location) ,new))
 
 (defsetf standard-instance-instance-location-access