Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

0.8.13.77:

	Some bugfixes
	... make failures of REQUIRE printable.  How did that happen?
	... patch from Dave Roberts (sbcl-devel 2004-08-18) for
		sb-bsd-sockets export
	... fix for ENOUGH-NAMESTRING, allowing :relative pathnames
		to be namestringized.
  • Loading branch information...
commit d1287b8413141509ca384971f615dde98979583e 1 parent 85dc704
@csrhodes csrhodes authored
View
2  NEWS
@@ -32,6 +32,8 @@ changes in sbcl-0.8.14 relative to sbcl-0.8.13:
* bug fix: pass the right initargs to :BEFORE or :AFTER methods on
SHARED-INITIALIZE or INITIALIZE-INSTANCE in optimized
MAKE-INSTANCE constructors. (reported by Axel Schairer for cmucl)
+ * bug fix: pathnames with relative directory components can be
+ represented relative to default pathnames.
* optimization: in taking the GCD of bignums, reduce the two bignums
to approximately the same size (using Euclid's algorithm) before
applying the more sophisticated binary GCD. (thanks to Juho
View
2  contrib/sb-bsd-sockets/defpackage.lisp
@@ -42,7 +42,7 @@
get-host-by-name get-host-by-address
host-ent
host-ent-addresses host-ent-address
- host-ent aliases host-ent-name
+ host-ent-aliases host-ent-name
name-service-error
;; not sure if these are really good names or not
netdb-internal-error
View
5 src/code/condition.lisp
@@ -816,8 +816,9 @@
(destructuring-bind (type data) (cdr reference)
(ecase type
(:node (format stream "Node ~S" data))
- (:variable (format stream "Variable ~S" data)))))
- ;; FIXME: other documents (e.g. AMOP, Franz documentation :-)
+ (:variable (format stream "Variable ~S" data))
+ (:function (format stream "Function ~S" data)))))
+ ;; FIXME: other documents (e.g. CLIM, Franz documentation :-)
))
(define-condition reference-condition ()
((references :initarg :references :reader reference-condition-references)))
View
8 src/code/filesys.lisp
@@ -375,7 +375,10 @@
(defaults-directory (%pathname-directory defaults))
(prefix-len (length defaults-directory))
(result-directory
- (cond ((and (> prefix-len 1)
+ (cond ((null pathname-directory) '(:relative))
+ ((eq (car pathname-directory) :relative)
+ pathname-directory)
+ ((and (> prefix-len 1)
(>= (length pathname-directory) prefix-len)
(compare-component (subseq pathname-directory
0 prefix-len)
@@ -387,8 +390,7 @@
;; We are an absolute pathname, so we can just use it.
pathname-directory)
(t
- ;; We are a relative directory. So we lose.
- (lose)))))
+ (bug "Bad fallthrough in ~S" 'unparse-unix-enough)))))
(strings (unparse-unix-directory-list result-directory)))
(let* ((pathname-type (%pathname-type pathname))
(type-needed (and pathname-type
View
4 tests/pathnames.impure.lisp
@@ -331,5 +331,9 @@
(when (probe-file test)
(delete-file test))))
+;;; ENOUGH-NAMESTRING should probably not fail when the namestring in
+;;; question has a :RELATIVE pathname.
+(assert (equal (enough-namestring #p"foo" #p"./") "foo"))
+
;;;; success
(quit :unix-status 104)
View
2  version.lisp-expr
@@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.13.76"
+"0.8.13.77"
Please sign in to comment.
Something went wrong with that request. Please try again.