Home / Browse / Steel Bank Common Lisp / Mail / Archive

Steel Bank Common Lisp

Email Archive: sbcl-help (read-only)

[Sbcl-help] hash table

From: Gerard Robin <g.robin3@fr...> - 2008-07-12 20:30

Hello,
I am creating a hash table like this:

(defparameter *hash1* (make-hash-table))

(setf (gethash 'paris *hash1*) 'france)
(setf (gethash 'lyon *hash1*) 'france)
(setf (gethash 'nantes *hash1*) 'france)
(setf (gethash 'berlin *hash1*) 'allemagne)
(setf (gethash 'cologne *hash1*) 'allemagne)
(setf (gethash 'berne *hash1*) 'suisse)
(setf (gethash 'genève *hash1*) 'suisse)
(setf (gethash 'rome *hash1*) 'italie)

I would like to know if it is possible to create such hash table like in
perl:
%hash1 = qw(paris france lyons france ......);

i.e. 
is it possible to use one time (setf (gethash)) to initialize the hash
table or does exist a function lisp to do that ?
tia.
-- 
Gérard

Thread View

Thread	Author	Date
[Sbcl-help] hash table	Gerard Robin <g.robin3@fr...>

Re: [Sbcl-help] hash table

From: Leslie P. Polzer <leslie.polzer@gm...> - 2008-07-12 20:48

> (defparameter *hash1* (make-hash-table))
> [...]
> I would like to know if it is possible to create such hash table like in
> perl:
> %hash1 = qw(paris france lyons france ......);

(defun plist->hash-table (plist &optional ht (make-hash-table))
  (loop for (key value) in plist
        do (setf (gethash key ht) value))
        finally (return ht)))

(plist->hash-table '(paris france lyons france bordeaux france) *hash1*)

untested

  Leslie

-- 
My personal blog: http://blog.viridian-project.de/

Re: [Sbcl-help] hash table

From: Gerard Robin <g.robin3@fr...> - 2008-07-13 10:33

ok it works like this:

(defparameter *hash1* (make-hash-table))

(defun print-hash-entry (key value)
   (format t "~S est une ville située en ~S~%" key value))

(defun init-hash (plist &optional (ht (make-hash-table)))
   (loop for (key value) in plist
	do (setf (gethash key ht) value))
   (maphash #'print-hash-entry ht)
   )
(init-hash '((lyon france) (paris france) (cologne allemagne) (baden-baden allemagne) (rome italie) (berne suisse)))
(format t "~%==================================================~%~%")
(init-hash '((bordeaux france) (nancy france) (dortmund allemagne) (koblentz allemagne) (madrid espagne) (gdansk  pologne)) *hash1*)

Many thanks.

-- 
Gérard