a845f6820d65

Fix FASL Fuckery
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Thu, 09 Feb 2017 13:19:30 +0000
parents 3fea2a14eb5f
children 60d7a9c10969
branches/tags (none)
files losh.lisp

Changes

--- a/losh.lisp	Tue Feb 07 12:26:15 2017 +0000
+++ b/losh.lisp	Thu Feb 09 13:19:30 2017 +0000
@@ -1459,26 +1459,26 @@
 
 (defmacro-clause (COLLECT-HASH key-and-value &optional
                   INTO var
-                  TEST (test #'eql))
+                  TEST (test '#'eql))
   "Collect keys and values into a hash table at `var`.
 
-  `key-and-value` should be a `(key-expr . value-expr)` pair.
-
   If `var` is omitted the hash table will be returned instead.
 
+  `key-and-value` should be a list of `(key-expr value-expr)`.
+
   `test` specifies the test used for the hash table.
 
   Example:
 
     (iterate (for x :from 0)
              (for y :in '(a b c))
-             (collect-hash ((1+ x) . y)))
+             (collect-hash ((1+ x) y)))
     ; => {1 a
     ;     2 b
     ;     3 c}
 
   "
-  (destructuring-bind (key . value) key-and-value
+  (destructuring-bind (key value) key-and-value
     (let ((hash-table (or var iterate::*result-var*)))
       `(progn
          (with ,hash-table = (make-hash-table :test ,test))