57bdaf80a448
oops
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Sat, 07 Jul 2018 21:04:56 +0000 |
parents | 6dbc64f70f9b |
children | 40e426c5982b |
branches/tags | (none) |
files | src/functions.lisp src/iterate.lisp |
Changes
--- a/src/functions.lisp Sun Jun 17 17:16:25 2018 -0700 +++ b/src/functions.lisp Sat Jul 07 21:04:56 2018 +0000 @@ -1,4 +1,4 @@ -(in-package :losh.control-flow) +(in-package :losh.functions) (defun juxt (&rest functions) "Return a function that will juxtapose the results of `functions`.
--- a/src/iterate.lisp Sun Jun 17 17:16:25 2018 -0700 +++ b/src/iterate.lisp Sat Jul 07 21:04:56 2018 +0000 @@ -656,7 +656,7 @@ (defmacro-driver (FOR var IN-HASHSET hset) (let ((kwd (if generate 'generate 'for))) - `(,kwd (,var) :in-hashtable (hash-set-storage ,hset)))) + `(,kwd (,var) :in-hashtable (losh.hash-sets::hash-set-storage ,hset)))) (defmacro-driver (FOR var RECURSIVELY expr INITIALLY init) (let ((kwd (if generate 'generate 'for)))