Steel Bank Common Lisp

> (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/

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