fork download

copy

(time (set 'arr (make-array (expt 2 20))))
 
(time (dotimes (i (expt 2 20))
	(setf (aref arr i) i)) )

; compiling file "/home/IesXeY/prog.lisp" (written 06 MAR 2019 07:28:57 AM):
; compiling (TIME (SET # ...))
; compiling (TIME (DOTIMES # ...))
; file: /home/IesXeY/prog.lisp
; in: TIME (DOTIMES (I (EXPT 2 20)) (SETF (AREF ARR I) I))
;     (SETF (AREF ARR I) I)
; ==>
;   (LET* ((#:ARR4 ARR) (#:I5 I) (#:NEW1 I))
;     (FUNCALL #'(SETF AREF) #:NEW1 #:ARR4 #:I5))
; 
; caught WARNING:
;   undefined variable: ARR
; 
; compilation unit finished
;   Undefined variable:
;     ARR
;   caught 1 WARNING condition


; /home/IesXeY/prog.fasl written
; compilation finished in 0:00:00.002
Unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING
                                    {1001E07133}>:
  compilation failed

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001E07133}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<SIMPLE-ERROR "compilation failed" {1001EC4453}> #<unavailable argument>)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<SIMPLE-ERROR "compilation failed" {1001EC4453}>)
2: (INVOKE-DEBUGGER #<SIMPLE-ERROR "compilation failed" {1001EC4453}>)
3: (ERROR "compilation failed")
4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ERROR "compilation failed") #<NULL-LEXENV>)
5: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WHEN (NTH-VALUE 2 (COMPILE-FILE "prog.lisp")) (ERROR "compilation failed")) #<NULL-LEXENV>)
6: (EVAL (WHEN (NTH-VALUE 2 (COMPILE-FILE "prog.lisp")) (ERROR "compilation failed")))
7: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(when(nth-value 2(compile-file \"prog.lisp\"))(error \"compilation failed\"))") (:EVAL . "(quit)")))
8: (SB-IMPL::TOPLEVEL-INIT)
9: ((FLET #:WITHOUT-INTERRUPTS-BODY-77 :IN SAVE-LISP-AND-DIE))
10: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting

Standard output is empty