Changeset 652

Timestamp:

Mar 17, 2004, 7:18:08 AM (21 years ago)

Author:

Gary Byers

Message:

%make-nsstring/%make-constant-nsstring.

File:

• trunk/ccl/examples/objc-runtime.lisp (modified) (3 diffs)

trunk/ccl/examples/objc-runtime.lisp

@@ -534 +534 @@
 ;;; Make a persistent (heap-allocated) NSConstantString.
 
-(defun %make-nsstring (string)
+(defun %make-constant-nsstring (string)
   "Make a persistent (heap-allocated) NSConstantString from the
 argument lisp string."
@@ -549 +549 @@
   )
 
+(defun %make-nsstring (string)
+  (with-cstrs ((s string))
+    (make-objc-instance 'ns:ns-string
+                        :with-c-string s)))
+                        
+
 
 ;;; Intern NSConstantString instances.
@@ -561 +567 @@
       (setf (gethash string *objc-constant-strings*)
             (make-objc-constant-string :string string
-                                       :nsstringptr (%make-nsstring string)))))
+                                       :nsstringptr (%make-constant-nsstring string)))))
 
 (def-ccl-pointers objc-strings ()