Permalink
Browse files

reformatting some comments

darcs-hash:20080621010530-3cc5d-e309c497bf9ad1e2adedcf19997a12e3206e220d.gz
  • Loading branch information...
1 parent 9ae337d commit e8d5c3d0ce2b766f403434c5671227fe551fab51 @gwkkwg committed Jun 21, 2008
Showing with 7 additions and 4 deletions.
  1. +5 −3 dev/l0-files.lisp
  2. +2 −1 dev/package.lisp
View
@@ -30,14 +30,16 @@
:stream-specifier-direction direction
:stream-specifier-args args))
-
(defun pathname-name+type (pathname)
- "Returns a new pathname consisting of only the name and type from a non-wild pathname."
+ "Returns a new pathname consisting of only the name and type from
+a non-wild pathname."
(make-pathname :name (pathname-name pathname)
:type (pathname-type pathname)))
(defun physical-pathname-directory-separator ()
- "Returns a string representing the separator used to delimit directories in a physical pathname. For example, Digitool's MCL would return \":\" whereas OpenMCL would return \"/\"."
+ "Returns a string representing the separator used to delimit directories
+in a physical pathname. For example, Digitool's MCL would return \":\"
+whereas OpenMCL would return \"/\"."
(let* ((directory-1 "foo")
(directory-2 "bar")
(pn (namestring
View
@@ -352,7 +352,8 @@
#:month->string
#:string->month
- #:print-date date-string
+ #:print-date
+ #:date-string
#:date-string-brief
#:print-time
#:print-universal-time

0 comments on commit e8d5c3d

Please sign in to comment.