Commit 65429721 authored by david's avatar david

Revision: cxml--devel--1.0--patch-111

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Tue Feb 10 14:31:01 CET 2004
Standard-date: 2004-02-10 13:31:01 GMT
Modified-files: domtest.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-111
Summary: oh je, jetzt "" statt NIL

oh je, jetzt "" statt NIL
parent 5cde51e0
......@@ -145,6 +145,9 @@
`(setf ,place ,form)
form))
(defun nullify (str)
(if (zerop (length str)) nil str))
;;;; dom1-interfaces.xml auslesen
......@@ -338,9 +341,9 @@
(defun translate-get (call name)
(with-attributes (|var| |value| |obj|) call
(cond
(|var| ;get
((nullify |var|) ;get
(maybe-setf (%intern |var|) `(,(intern-dom name) ,(%intern |obj|))))
(|value| ;set
((nullify |value|) ;set
`(setf (,(intern-dom name) ,(%intern |obj|))
,(parse-java-literal |value|)))
(t
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment