Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

pathname-fixups-plus-abcl-help

Thanks to szergling

darcs-hash:20071119161726-b71ba-90ae14b363adfff94079e433dd730e3709ccf46f.gz
  • Loading branch information...
commit f42e5ed5873516b68bbafde79844396f94492f92 1 parent 48ac69c
sross authored
Showing with 7 additions and 5 deletions.
  1. +1 −1  cl-store.asd
  2. +4 −1 default-backend.lisp
  3. +2 −3 utils.lisp
View
2  cl-store.asd
@@ -45,7 +45,7 @@ CLISP, ECL and AllegroCL are supported.")
:name "CL-STORE"
:author "Sean Ross <sross@common-lisp.net>"
:maintainer "Sean Ross <sross@common-lisp.net>"
- :version "0.8"
+ :version "0.8.1"
:description "Serialization package"
:long-description "Portable CL Package to serialize data"
:licence "MIT"
View
5 default-backend.lisp
@@ -348,6 +348,8 @@
;; pathnames
(defstore-cl-store (obj pathname stream)
(output-type-code +pathname-code+ stream)
+ (store-object #-sbcl (pathname-host obj)
+ #+sbcl (host-namestring obj) stream)
(store-object (pathname-device obj) stream)
(store-object (pathname-directory obj) stream)
(store-object (pathname-name obj) stream)
@@ -355,7 +357,8 @@
(store-object (pathname-version obj) stream))
(defrestore-cl-store (pathname stream)
- (make-pathname
+ (make-pathname
+ :host (restore-object stream)
:device (restore-object stream)
:directory (restore-object stream)
:name (restore-object stream)
View
5 utils.lisp
@@ -47,14 +47,13 @@
; Generify get-slot-details for customization (from Thomas Stenhaug)
-#-abcl
(defgeneric get-slot-details (slot-definition)
(declare (optimize speed))
(:documentation
"Return a list of slot details which can be used
as an argument to ensure-class")
- (:method ((slot-definition #+(or ecl (and clisp (not mop))) t
- #-(or ecl (and clisp (not mop))) slot-definition))
+ (:method ((slot-definition #+(or ecl abcl (and clisp (not mop))) t
+ #-(or ecl abcl (and clisp (not mop))) slot-definition))
(list :name (slot-definition-name slot-definition)
:allocation (slot-definition-allocation slot-definition)
:initargs (slot-definition-initargs slot-definition)
Please sign in to comment.
Something went wrong with that request. Please try again.