Seg fault on (seemingly) trivial function

Hi all,

On Lispworks 6.0.1, 64 bit,  Debian Linux when I compile-file a file
containing just the following defun I get the result below.  I
understand I am not running the latest LW version but am interested in
any work around so as to try and patch the CL protobuf library:
https://github.com/brown/protobuf

In fact this is the smallest test case I could devise for the function
read-single-float-carefully in the file wire-format.lisp found here:
https://github.com/brown/protobuf/blob/master/wire-format.lisp

Thanks,

Greg

----

foo.lisp:
----
(defun bar ()
  (let ((a 0)
        (b 0))
    (incf a)
    (decf b 429496729)))
----

CL-USER 1 >  (compile-file "foo.lisp")
;;; Compiling file foo.lisp ...
;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 1
;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
;;; Source level debugging is on
;;; Source file recording is  on
;;; Cross referencing is on
; (TOP-LEVEL-FORM 0)

**++++ Error in BAR: 
  Segmentation violation(11) [code 0] at 41B0BC18E2
     {Offset 310 inside #<Function 1 subfunction of (TOP-LEVEL-FORM 8)
     41B0BC17AC>}
rax    7FFFFFFF8 ; rbx   41B02C9234 ; rcx            1 ; rdx  
4000049839
rsp   404001C968 ; rbp   404001C978 ; rdi   41A01B5149 ; rsi  
41A00CC1F9
r8            1F ; r9           B27 ; r10   4040000803 ; r11  
4020034D83
r12    666666640 ; r13   41901D5793 ; r14   4000049839 ; r15  
41B0BC17AC
;; Processing Cross Reference Information
; *** 1 error detected, no fasl file produced.
NIL
((BAR #<SYSTEM::EXCEPTION 4020036BC3>))
T

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html