Update of /project/mcclim/cvsroot/mcclim/ESA
In directory clnet:/tmp/cvs-serv21340/ESA
Modified Files:
packages.lisp utils.lisp
Log Message:
Added FORMAT-SYM function from Maciej Katafiasz to ESA-UTILS.
--- /project/mcclim/cvsroot/mcclim/ESA/packages.lisp 2008/05/01 06:48:22 1.20
+++ /project/mcclim/cvsroot/mcclim/ESA/packages.lisp 2008/06/15 09:01:33 1.21
@@ -47,6 +47,7 @@
#:ensure-array-size
#:values-max-min
#:retaining-value
+ #:format-sym
#:build-menu #:define-menu-table
#:observable-mixin
#:add-observer #:remove-observer
--- /project/mcclim/cvsroot/mcclim/ESA/utils.lisp 2008/04/29 16:27:42 1.12
+++ /project/mcclim/cvsroot/mcclim/ESA/utils.lisp 2008/06/15 09:01:33 1.13
@@ -273,6 +273,18 @@
(unwind-protect (progn ,@body)
(setf (symbol-value ',symbol) ,bound-symbol))))))
+(defun format-sym (format-string &rest args)
+ "Return `format-string' with args spliced in, where all
+arguments that are symbols with have their `symbol-name' spliced
+instead, this makes sure the result is correct even on systems
+where read/print case is other than default."
+ (apply #'format nil format-string
+ (mapcar #'(lambda (arg)
+ (if (symbolp arg)
+ (symbol-name arg)
+ arg))
+ args)))
+
(defun build-menu (command-tables &rest commands)
"Create a command table inheriting commands from
`command-tables', which must be a list of command table
