Permalink
Browse files

Fix CL namestring function name.

  • Loading branch information...
1 parent 4f8d29d commit 6f2d0db62cf8cd8930fdff19c37d396adb7f5c20 @orivej committed Feb 10, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 quickdist.lisp
View
2 quickdist.lisp
@@ -67,7 +67,7 @@ system-index-url: {base-url}/{name}/{version}/systems.txt
(defun native-namestring (path)
#+ccl(ccl:native-translated-namestring path)
#+sbcl(sb-ext:native-namestring path)
- #-(or ccl sbcl)(native-namestring path))
+ #-(or ccl sbcl)(namestring path))
(defun archive (destdir-path source-path)
(let* ((mtime (format-date (effective-mtime source-path)))

0 comments on commit 6f2d0db

Please sign in to comment.