Permalink
Browse files

fixed a type error in clack.asd.

  • Loading branch information...
1 parent 459e255 commit 5d9841ac0b720098f9d3fd1d7cb7fc24fb06cf2f @fukamachi committed Jun 23, 2011
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))
+ ""))

0 comments on commit 5d9841a

Please sign in to comment.