fft -> SIGSEGV

Hello,

I don't know if something is wrong with my matlisp installation but I
get a segmentation violation with this little test involving fft:

I am using cmucl-19c, cvs matlisp.

(in-package :matlisp)

(print (lisp-implementation-type))
(print (lisp-implementation-version))
(print *features*)

(defconstant 2pi (* 2 pi))

(defparameter *data-1*
  (make-real-matrix
   (loop with a = 1
         with f = 0.25
         with sr = 1
         with phi = 0
         for n from 0 below 64
         for x = (* a (cos (+ (* 2pi n f sr) phi)))
         collect x)))

(fft *data-1*)

wok$ ~/comp/lang/lisp/cmucl-19c/bin/lisp
-core /usr/local/src/matlisp/matlisp.core -load
"/home/tl/Projects/sandbox/fft.lisp"
; Loading #P"/home/tl/init.lisp".
Warning:  Declaring *LOAD-OBJECT-TYPES* special.
;; Loading #P"/home/tl/comp/lang/lisp/code/asdf/asdf.x86f".
;; Loading #P"/home/tl/root/lisp/pdoc.lisp".
; Loading #P"/home/tl/Projects/sandbox/fft.lisp".

"CMU Common Lisp"
"19c (19C)"
(:ASDF :TL :MK-DEFSYSTEM :MATLISP :GERDS-PCL :PCL-STRUCTURES
:PORTABLE-COMMONLOOPS :PCL :CMU19 :CMU19C :PYTHON :CONSERVATIVE-FLOAT-TYPE
:MODULAR-ARITH :MP :X86 :LINKAGE-TABLE :RELATIVE-PACKAGE-NAMES :LINUX :GLIBC2
:UNIX :RANDOM-MT19937 :GENCGC :PENTIUM :I486 :HASH-NEW :HEAP-OVERFLOW-CHECK


Error in function UNIX::SIGSEGV-HANDLER:  Segmentation Violation at
#xB7F43775.
   [Condition of type SIMPLE-ERROR]

Restarts:
  0: [CONTINUE] Return NIL from load of
"/home/tl/Projects/sandbox/fft.lisp".
  1: [ABORT   ] Skip remaining initializations.

Debug  (type H for help)

(UNIX::SIGSEGV-HANDLER #<unused-arg>
                       #<unused-arg>
                       #.(SYSTEM:INT-SAP #x3FFFC5B8))
Source: Error finding source:
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer
exists:  target:code/signal.lisp.
0]


-- 
Thibault Langlois <[email protected]>
FCUL / DI


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys -- and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV