Commit 5cde51e0 authored by david's avatar david

Revision: cxml--devel--1.0--patch-108

Archive: david@knowledgetools.de--cxml
Creator: David Lichteblau <david@knowledgetools.de>
Date: Tue Feb 10 13:42:10 CET 2004
Standard-date: 2004-02-10 12:42:10 GMT
Modified-files: domtest.lisp
New-patches: david@knowledgetools.de--cxml/cxml--devel--1.0--patch-108
Summary: mit leeren Strings umgehen koennen (*seufz*)

mit leeren Strings umgehen koennen (*seufz*)
parent 73535bca
......@@ -91,9 +91,9 @@
(return child)))
(defun %intern (name)
(if name
(intern name :domtest-tests)
nil))
(if (zerop (length name))
nil
(intern name :domtest-tests)))
(defun replace-studly-caps (str)
;; s/([A-Z][a-z])/-\1/
......@@ -119,7 +119,7 @@
(defun parse-java-literal (str)
(cond
((null str) nil) ;?
((zerop (length str)) nil)
((equal str "true")
t)
((equal str "false")
......
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