Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fixed a type error in clack.asd.

  • Loading branch information...
commit 5d9841ac0b720098f9d3fd1d7cb7fc24fb06cf2f 1 parent 459e255
@fukamachi authored
Showing with 11 additions and 10 deletions.
  1. +11 −10 clack.asd
View
21 clack.asd
@@ -121,13 +121,14 @@
(:file "route"))))))
:description "Web application environment for Common Lisp"
:long-description
- #.(with-open-file (stream (merge-pathnames
- #p"README.markdown"
- (or *load-pathname* *compile-file-pathname*))
- :if-does-not-exist nil
- :direction :input)
- (let ((seq (make-array (file-length stream)
- :element-type 'character
- :fill-pointer t)))
- (setf (fill-pointer seq) (read-sequence seq stream))
- seq)))
+ #.(or (with-open-file (stream (merge-pathnames
+ #p"README.markdown"
+ (or *load-pathname* *compile-file-pathname*))
+ :if-does-not-exist nil
+ :direction :input)
+ (let ((seq (make-array (file-length stream)
+ :element-type 'character
+ :fill-pointer t)))
+ (setf (fill-pointer seq) (read-sequence seq stream))
+ seq))
+ ""))
Please sign in to comment.
Something went wrong with that request. Please try again.