# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1560094004 14400
# Node ID 1afaa33589b2160477a410b8a2b22dad0212eeac
# Parent  e48985ef1aac7a0190cb6abfc416d979dd4b9e36
Change default conc-name of with macros

diff -r e48985ef1aac -r 1afaa33589b2 DOCUMENTATION.markdown
--- a/DOCUMENTATION.markdown	Sun May 05 11:41:36 2019 -0400
+++ b/DOCUMENTATION.markdown	Sun Jun 09 11:26:44 2019 -0400
@@ -877,11 +877,9 @@
 
 ### `PROFILE` (macro)
 
-    (PROFILE
-      &BODY
-      BODY)
-
-Profile `body` and dump the report to `lisp.prof`.
+    (PROFILE FORM &KEY (MODE :CPU))
+
+Profile `form` and dump the report to `lisp.prof`.
 
 ### `SHUT-UP` (macro)
 
@@ -1301,6 +1299,54 @@
 
   
 
+### `REMHASH-IF` (function)
+
+    (REMHASH-IF TEST HASH-TABLE)
+
+Remove elements which satisfy `(test key value)` from `hash-table`.
+
+  Returns the hash table.
+
+### `REMHASH-IF-KEY` (function)
+
+    (REMHASH-IF-KEY TEST HASH-TABLE)
+
+Remove elements which satisfy `(test key)` from `hash-table`.
+
+  Returns the hash table.
+
+### `REMHASH-IF-NOT` (function)
+
+    (REMHASH-IF-NOT TEST HASH-TABLE)
+
+Remove elements which don't satisfy `(test key value)` from `hash-table`.
+
+  Returns the hash table.
+
+### `REMHASH-IF-NOT-KEY` (function)
+
+    (REMHASH-IF-NOT-KEY TEST HASH-TABLE)
+
+Remove elements which satisfy don't `(test key)` from `hash-table`.
+
+  Returns the hash table.
+
+### `REMHASH-IF-NOT-VALUE` (function)
+
+    (REMHASH-IF-NOT-VALUE TEST HASH-TABLE)
+
+Remove elements which satisfy don't `(test value)` from `hash-table`.
+
+  Returns the hash table.
+
+### `REMHASH-IF-VALUE` (function)
+
+    (REMHASH-IF-VALUE TEST HASH-TABLE)
+
+Remove elements which satisfy `(test value)` from `hash-table`.
+
+  Returns the hash table.
+
 ## Package `LOSH.IO`
 
 Utilities for input/output/reading/etc.
@@ -1676,20 +1722,12 @@
 
 Enqueue each element of `list` in `queue` and return the queue's final size.
 
-### `QUEUE-CONTENTS` (function)
-
-    (QUEUE-CONTENTS VALUE INSTANCE)
-
 ### `QUEUE-EMPTY-P` (function)
 
     (QUEUE-EMPTY-P QUEUE)
 
 Return whether `queue` is empty.
 
-### `QUEUE-SIZE` (function)
-
-    (QUEUE-SIZE VALUE INSTANCE)
-
 ## Package `LOSH.RANDOM`
 
 Utilities related to randomness.
@@ -2088,17 +2126,9 @@
 
 Slots: `WEIGHTS`, `SUMS`, `ITEMS`, `TOTAL`
 
-### `WEIGHTLIST-ITEMS` (function)
-
-    (WEIGHTLIST-ITEMS VALUE INSTANCE)
-
 ### `WEIGHTLIST-RANDOM` (function)
 
     (WEIGHTLIST-RANDOM WEIGHTLIST)
 
 Return a random item from the weightlist, taking the weights into account.
 
-### `WEIGHTLIST-WEIGHTS` (function)
-
-    (WEIGHTLIST-WEIGHTS VALUE INSTANCE)
-
diff -r e48985ef1aac -r 1afaa33589b2 src/eldritch-horrors.lisp
--- a/src/eldritch-horrors.lisp	Sun May 05 11:41:36 2019 -0400
+++ b/src/eldritch-horrors.lisp	Sun Jun 09 11:26:44 2019 -0400
@@ -46,7 +46,7 @@
     (10 20 555 999)
 
   "
-  (destructuring-bind (type &key (conc-name (symb type '-)))
+  (destructuring-bind (type &key conc-name)
       (ensure-list type-and-options)
     (let* ((accessors (loop :for slot :in slots
                             :collect (if conc-name (symb conc-name slot) slot)))