From 61736995587112156a0f67b36d5172c943197d2d Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 6 Jan 2008 21:03:56 +0100 Subject: [PATCH] Small improvement in MAKE-HT-FROM-LIST. Signed-off-by: Stelian Ionescu --- sockets/common.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sockets/common.lisp b/sockets/common.lisp index d54652a..68612e3 100644 --- a/sockets/common.lisp +++ b/sockets/common.lisp @@ -280,10 +280,10 @@ (let* ((ht (make-hash-table :test test)) (series (scan 'list list)) (separators (choose (mask (scan-range :from 3 :by 4)) series))) - (unless (collect-and (#mseparatorp separators)) (err)) + (unless (collect-and (map-fn 'list #'separatorp separators)) (err)) (multiple-value-bind (keys middles values) (chunk 3 4 series) - (unless (collect-and (#mmiddlep middles)) (err)) + (unless (collect-and (map-fn 'list #'middlep middles)) (err)) (collect-hash keys values :test test))))) (defun read-literal-ht (stream &optional c n) -- 2.11.4.GIT