Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

• d959c164
  by Raymond Toy at 2016-12-07T21:19:19-08:00

  Fix #34: Handle newline character correctly
  
  The string containing #\Newline that is used to output the newline
  character worked on little-endian architectures because the low octet
  was first in memory.  However on a big-endian sparc, a NUL character
  was output instead since the high octet is first in memory.
  
  So, create a explicit unsigned-byte 8 array containing exactly 1 octet
  that represents a newline character code.
  
  Tests pass on both sparc and x86/linux.
  

• 3b4745d3
  by Raymond Toy at 2016-12-08T05:20:53+00:00

  Merge branch 'rtoy-fix-issue-34' into 'master'
  
  Fix #34: Handle newline character correctly
  
  The string containing #\Newline that is used to output the newline
  character worked on little-endian architectures because the low octet
  was first in memory.  However on a big-endian sparc, a NUL character
  was output instead since the high octet is first in memory.
  
  So, create a explicit unsigned-byte 8 array containing exactly 1 octet
  that represents a newline character code.
  
  Tests pass on both sparc and x86/linux.
  
  See merge request !19

1 changed file:

• src/code/run-program.lisp

Changes:

					 #o666)))

		(unix:unix-unlink name)

		(when fd

		  (let ((newline (string #\Newline)))

		  (let ((newline (make-array 1 :element-type '(unsigned-byte 8)

					     :initial-element (char-code #\Newline))))

		    (loop

		      (multiple-value-bind

			  (line no-cr)