From 8504437e474ab6d77855f5e62b48fe1ceef42327 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 6 Jan 2008 23:20:28 +0100 Subject: [PATCH] Fix MAKE-HT-FROM-LIST. Signed-off-by: Stelian Ionescu --- sockets/common.lisp | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/sockets/common.lisp b/sockets/common.lisp index 68612e3..d3437ad 100644 --- a/sockets/common.lisp +++ b/sockets/common.lisp @@ -277,13 +277,11 @@ (flet ((err () (error 'reader-error :stream stream)) (separatorp (s) (eq s '|,|)) (middlep (s) (eq s '=>))) - (let* ((ht (make-hash-table :test test)) - (series (scan 'list list)) + (let* ((series (scan 'list list)) (separators (choose (mask (scan-range :from 3 :by 4)) series))) - (unless (collect-and (map-fn 'list #'separatorp separators)) (err)) - (multiple-value-bind (keys middles values) - (chunk 3 4 series) - (unless (collect-and (map-fn 'list #'middlep middles)) (err)) + (unless (collect-and (map-fn 'boolean #'separatorp separators)) (err)) + (multiple-value-bind (keys middles values) (chunk 3 4 series) + (unless (collect-and (map-fn 'boolean #'middlep middles)) (err)) (collect-hash keys values :test test))))) (defun read-literal-ht (stream &optional c n) -- 2.11.4.GIT