X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fhash.impure.lisp;h=0c398171460164abb2e5a236fac6c8c2d191f345;hb=a189a69454ef7635149319ae213b337f17c50d20;hp=db4c5fd131aacc43328fc9df9f2b5ae6d7b50378;hpb=69990bc42314706e9d646ddd8f6b911f46d0052c;p=sbcl.git

diff --git a/tests/hash.impure.lisp b/tests/hash.impure.lisp
index db4c5fd..0c39817 100644
--- a/tests/hash.impure.lisp
+++ b/tests/hash.impure.lisp
@@ -399,7 +399,7 @@
 (defun custom-hash-hash (x)
   (sxhash (custom-hash-key-name x)))
 (define-hash-table-test custom-hash-test custom-hash-hash)
-(with-test (:name define-hash-table-test.1)
+(with-test (:name :define-hash-table-test.1)
   (let ((table (make-hash-table :test 'custom-hash-test)))
     (setf (gethash (make-custom-hash-key :name "foo") table) :foo)
     (setf (gethash (make-custom-hash-key :name "bar") table) :bar)
@@ -420,7 +420,7 @@
     (lambda (x)
       (logand most-positive-fixnum
               (reduce #'+ (map 'list #'sxhash (subseq x 0 3))))))
-(with-test (:name define-hash-table-test.2)
+(with-test (:name :define-hash-table-test.2)
   (let ((table (make-hash-table :test 'head-eql)))
     (setf (gethash #(1 2 3 4) table) :|123|)
     (setf (gethash '(2 3 4 7) table) :|234|)
@@ -438,7 +438,7 @@
     (assert (eq :foo (gethash '(#\f #\o #\o 1 2 3) table)))
     (assert (eq 'head-eql (hash-table-test table)))))
 
-(with-test (:name make-hash-table/hash-fun)
+(with-test (:name :make-hash-table/hash-fun)
   (let ((table (make-hash-table
                 :test #'=
                 :hash-function (lambda (x)