Browse files

Bug fix: (andf) should evaluate to T, not NIL

  • Loading branch information...
tonyg committed Oct 13, 2011
1 parent 1cba8fd commit bca162815c89b1e04fbda2a100674f8d1c2e0956
Showing with 1 addition and 1 deletion.
  1. +1 −1 std/content/standard.lisp
@@ -135,7 +135,7 @@ This software is provided "as is" with no express or implied warranty.
(def orf (&rest vals) (dolist (val vals nil) (when val (return val))))
(def andf (&rest vals)
- (lett rzult nil
+ (lett rzult t
(dolist (val vals rzult) (if val (setf rzult val) (return nil)))))
(def /_ (x y) (floor x y))

0 comments on commit bca1628

Please sign in to comment.