Paste number 145028: p363

Paste number 145028: p363
Pasted by: _m___
When:7 years, 4 months ago
Share:Tweet this! |
Paste contents:
Raw Source | XML | Display As
;; in .lisp:

187  (with-open-file (*standard-output* "random_walk.svg"
188				   :direction :output
189				   :if-exists :supersede)
190  (svg 400 200
191    (loop repeat 10
192       do (polygon (append '((0 . 200))
193			  (loop for x
194			      for y in (random-walk 100 400)
195			     collect (cons x y))
196			  '((400 . 200)))
197	 (loop repeat 3
198	      collect (random 256))))))

;; repl output:

3 compiler notes:

  note: deleting unreachable code

  note: The second argument never returns a value.

    during macroexpansion of (LOOP FOR X ...). Use *BREAK-ON-SIGNALS* to intercept.
     FOR is an unknown keyword in FOR or AS clause in LOOP.
    current LOOP context: FOR X FOR Y IN.

  note: deleting unreachable code

  note: deleting unreachable code

Compilation failed.

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.