Welcome to the CHICKEN Scheme pasting service

no title pasted by anonymous on Fri Apr 13 22:11:14 2012

	(cond
		.
		.
		.

			( (>= (first (first ($db "select count(*) from boards where name=?" values: (list ($ 'name "xxx")))) ) 1 )
				(display ($ 'name "xxx"))
			)
			( else
				(stuff)
			)
	)
[ permalink | raw ]

A suggestion added by mario-goulart on Fri Apr 13 22:22:36 2012

(let ((name ($ 'name "xxx")))
  (cond ((> (caar ($db "select count(*) from boards where name=?"
			values: (list name)))
	    0)
	 (display name))
	(else (stuff))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Name of the most used CHICKEN HTTP server implementation:
Visually impaired? Let me spell it for you (wav file) download WAV