57bdaf80a448

oops
[view raw] [browse files]
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)))