Affirmative_action_from_`fortune`
No One
Actions

Authored By

	dereckson
	Apr 3 2015, 17:06

Size

661 B

Referenced Files

None

Subscribers

None

Affirmative_action_from_`fortune`
View Options

	(defun NF (a c)
	(cond ((null c) () )
	((atom (car c))
	(append (list (eval (list 'getchar (list (car c) 'a) (cadr c))))
	(nf a (cddr c))))
	(t (append (list (implode (nf a (car c)))) (nf a (cdr c))))))

	(defun AD (want-job challenging boston-area)
	(cond
	((or (not (equal want-job 'yes))
	(not (equal boston-area 'yes))
	(lessp challenging 7)) () )
	(t (append (nf (get 'ad 'expr)
	'((caaddr 1 caadr 2 car 1 car 1)
	(car 5 cadadr 9 cadadr 8 cadadr 9 caadr 4 car 2 car 1)
	(car 2 caadr 4)))
	(list '851-5071x2661)))))
	;;; We are an affirmative action employer.

File Metadata

Mime Type: text/plain; charset=utf-8
Storage Engine: blob
Storage Format: Raw Data
Storage Handle: 1518
Default Alt Text: Affirmative_action_from_`fortune` (661 B)

Event Timeline