GitLab

at 2024-06-09T06:02:11-07:00

Add package qualifiers

The function `unicode-title` and the macro `with-one-string` are in
the `lisp` package, so add the package qualifer.

Fixes #330.

            (code-char (logxor m #x20)))

           #+(and unicode (not unicode-bootstrap))

 	  ((> m lisp::+ascii-limit+)

-           (code-char (unicode-title m)))

+           (code-char (lisp::unicode-title m)))

 	  (t char))))

 (defun title-case-p (char)

   (let* ((string (if (stringp string) string (string string)))

 	 (slen (length string)))

     (declare (fixnum slen))

-    (with-one-string string start end offset

+    (lisp::with-one-string string start end offset

       (let ((offset-slen (+ slen offset))

 	    (newstring (make-string slen)))

 	(declare (fixnum offset-slen))

Raymond Toy pushed to branch issue-328-typo-code-char at cmucl / cmucl

Commits:

1 changed file:

Changes: