Index: /trunk/ccl/library/lispequ.lisp
===================================================================
--- /trunk/ccl/library/lispequ.lisp	(revision 326)
+++ /trunk/ccl/library/lispequ.lisp	(revision 327)
@@ -262,5 +262,11 @@
   %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,12 +947,12 @@
 ;;; 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