search

fons / cl-mongo

lisp interface to mongo db
fons.github.com/cl-mongo
MIT License
143 stars 31 forks source link

Example issue #3

Closed Harag closed 13 years ago

Harag commented 13 years ago

(defjs sumreduce(k vals) (let ((sum 0)) (dolist (c vals) (incf sum c)) (return sum)))

; in: LAMBDA NIL ; (PARENSCRIPT:PS ; (LAMBDA (CL-MONGO::K CL-MONGO::VALS) ; (LET ((CL-MONGO::SUM 0)) ; (DOLIST (CL-MONGO::C CL-MONGO::VALS) (INCF CL-MONGO::SUM CL-MONGO::C)) ; (RETURN CL-MONGO::SUM)))) ; ; caught WARNING: ; Returning from unknown block nilBlock ; ; compilation unit finished ; caught 1 WARNING condition STYLE-WARNING: redefining CL-MONGO::SUMREDUCE in DEFUN

Is this suppose to happen?

fons commented 13 years ago

; #<PACKAGE "ASDF0"> ; registering # as SB-ROTATE-BYTE ("lisp-unit" "SB-ROTATE-BYTE" "IRONCLAD") CL-USER> (use-package :cl-mongo) T CL-USER> (defjs sumreduce(k vals) (let ((sum 0)) (dolist (c vals) (incf sum c)) (return sum))) SUMREDUCE CL-USER>

Works for me with sbcl. It looks like this is a warning... Not sure what I can do unless I have a little more info...