Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 112754 | Differences between
and this patch

Collapse All | Expand All

(-)maxima-5.9.3/src/numerical/f2cl-lib.lisp (-1 / +1 lines)
Lines 1413-1419 Link Here
1413 
;;; These changes come from maxima.
 1413 
;;; These changes come from maxima.
1414 
;;;
 1414 
;;;
1415 
;;; Revision 1.61  2005/03/28 20:38:18  rtoy
 1415 
;;; Revision 1.61  2005/03/28 20:38:18  rtoy
1416 
;;; Make strings with an element-type of character instead of base-char,
 1416 
;;; Make strings with an element-type of character instead of character,
1417 
;;; in case the Lisp implementation has unicode support.
 1417 
;;; in case the Lisp implementation has unicode support.
1418 
;;;
 1418 
;;;
1419 
;;; Revision 1.60  2004/09/01 14:17:57  rtoy
 1419 
;;; Revision 1.60  2004/09/01 14:17:57  rtoy
(-)maxima-5.9.3/src/server.lisp (-1 / +1 lines)
Lines 52-58 Link Here
52 
	      :element-type (if bin '(unsigned-byte 8) 'character)))
 52 
	      :element-type (if bin '(unsigned-byte 8) 'character)))
53 
    #+gcl (si::socket port :host host)
 53 
    #+gcl (si::socket port :host host)
54 
    #+lispworks (comm:open-tcp-stream host port :direction :io :element-type
 54 
    #+lispworks (comm:open-tcp-stream host port :direction :io :element-type
55 
                                      (if bin 'unsigned-byte 'base-char))
 55 
                                      (if bin 'unsigned-byte 'character))
56 
    #-(or allegro clisp cmu scl sbcl gcl lispworks)
 56 
    #-(or allegro clisp cmu scl sbcl gcl lispworks)
57 
    (error 'not-implemented :proc (list 'open-socket host port bin))))
 57 
    (error 'not-implemented :proc (list 'open-socket host port bin))))
58 

          58
          

        






  

  Return to bug 112754