X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fhash-table.lisp;h=8125e9ef7827c275eb5466f7842528ed4681adfa;hb=f9d87f161987d9bbbb1c70d7c833e72823eda584;hp=e5981506e70d2de9e86ba9cceb4dd44874771f84;hpb=29c5587e4ad81dd1442c5f54cc686a45f7cb9d2e;p=jscl.git

diff --git a/src/hash-table.lisp b/src/hash-table.lisp
index e598150..8125e9e 100644
--- a/src/hash-table.lisp
+++ b/src/hash-table.lisp
@@ -100,3 +100,10 @@
                ,g!new-value)              
             `(gethash ,g!new-value ,g!key ,g!hash-table)    ; accessing form
             )))
+
+
+(defun remhash (key hash-table)
+  (let ((obj (caddr hash-table))
+        (hash (funcall (cadr hash-table) key)))
+    (prog1 (in hash obj)
+      (delete-property hash obj))))