Index: /trunk/ccl/library/pty.lisp
===================================================================
--- /trunk/ccl/library/pty.lisp	(revision 5877)
+++ /trunk/ccl/library/pty.lisp	(revision 5878)
@@ -45,9 +45,5 @@
 	(progn
 	  (if control-chars
-	    (%copy-ptr-to-ivector (pref attr :termios.c_cc)
-				  0
-				  control-chars
-				  0
-				  #$NCCS))
+            (%str-from-ptr (pref attr :termios.c_cc) #$NCCS control-chars))
 	  (values
 	   (pref attr :termios.c_iflag)
@@ -55,6 +51,6 @@
 	   (pref attr :termios.c_cflag)
 	   (pref attr :termios.c_lflag)
-	   #+darwinppc-target 0
-	   #-darwinppc-target
+	   #+darwin-target 0
+	   #-darwin-target
 	   (pref attr :termios.c_line)
 	   control-chars
@@ -91,9 +87,5 @@
 	      (setq write-back t))
 	    (when control-chars
-	      (%copy-ivector-to-ptr control-chars
-				    0
-				    (pref attr :termios.c_cc)
-				    0
-				    #$NCCS)
+              (%cstr-pointer control-chars (pref attr :termios.c_cc) nil)
 	      (setq write-back t))
 	    (when input-speed