[gtk-cffi-cvs] CVS gtk-cffi/utils

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/utils
In directory tiger.common-lisp.net:/tmp/cvs-serv32663/utils

Added Files:
	gtk-cffi-utils.asd package.lisp utils.lisp 
Log Message:
Major commit. Now all exerices ex*.lisp work perfectly.
Added lisp-array model for tree-view (see ex9).




--- /project/gtk-cffi/cvsroot/gtk-cffi/utils/gtk-cffi-utils.asd	2011/08/08 15:02:02	NONE
+++ /project/gtk-cffi/cvsroot/gtk-cffi/utils/gtk-cffi-utils.asd	2011/08/08 15:02:02	1.1
(defpackage #:gtk-cffi-utils-system
  (:use #:cl #:asdf))
(in-package #:gtk-cffi-utils-system)


(defsystem gtk-cffi-utils
  :description "Different utils for gtk-cffi"
  :author "Roman Klochkov <kalimehtar at mail.ru>"
  :version "1.0"
  :license "LGPL"
  :components
  ((:file :package)
   (:file :utils :depends-on (:package))))--- /project/gtk-cffi/cvsroot/gtk-cffi/utils/package.lisp	2011/08/08 15:02:02	NONE
+++ /project/gtk-cffi/cvsroot/gtk-cffi/utils/package.lisp	2011/08/08 15:02:02	1.1
(in-package #:cl-user)

(defpackage #:gtk-cffi-utils
  (:use #:common-lisp)
  (:export
   #:with-hash))--- /project/gtk-cffi/cvsroot/gtk-cffi/utils/utils.lisp	2011/08/08 15:02:02	NONE
+++ /project/gtk-cffi/cvsroot/gtk-cffi/utils/utils.lisp	2011/08/08 15:02:02	1.1
(in-package :gtk-cffi-utils)

(defmacro with-hash (hash key &body body)
  (let ((try (gensym)))
    `(or (gethash ,key ,hash)
         (let ((,try (progn , at body)))
           (when ,try
             (setf (gethash ,key ,hash) ,try))))))