Commit 7c081eb7 authored by rtoy's avatar rtoy
Browse files

Don't call dgettext with a NIL doc.

parent 5b8db9f2
......@@ -4,7 +4,7 @@
;;; the public domain, and is provided 'as is'.
(file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.18 2010/12/14 21:22:27 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.19 2011/07/12 17:19:50 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -237,7 +237,7 @@
(values (info typed-structure textdomain x)))
(t
nil))))
(or (intl:dgettext domain doc)
(or (and doc (intl:dgettext domain doc))
doc)))
......
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