From jpthing at online.no Tue Apr 8 10:38:24 2008 From: jpthing at online.no (John Thingstad) Date: Tue, 08 Apr 2008 12:38:24 +0200 Subject: [lift-devel] lift-devel@common-lisp.net References: Message-ID: I am runninig LispWorks verion 5.0 on Windows XP. The 19 warnings I get annoy me. Is there a way to prevent this? They are all on the form: ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE (MY-USER::STRING-TEST)): symbol-macro PHONETICS is bound but not referenced Help is appreciated. ------------------------------------------------------------------------------------ This is the test code ;; ;; testing ;; (deftestsuite set-test () ()) (deftestsuite string-test (set-test) ((phonetics (list "alfa" "bravo" "charlie" "delta" "echo" "foxtrot" "golf" "hotel" "india" "juliet" "kilo" "lima" "mama" "november" "oscar" "papa" "qbeck" "romeo" "sierra" "tango" "uniform" "victor" "wiskey" "x-ray" "yankee" "zulu")) list1 list2) (:function (random-n-phonetics (n) (check-type n (integer 0 25)) (iter (with result = nil) (with p = phonetics) (repeat n) ( for len downfrom 26) (let ((val (nth (random len) p))) ( setf result (set-insert val result :test #'string-lessp)) (setf p (remove val p :count 1))) (finally (return result))))) (:equality-test 'equalp) (:run-setup :once-per-suite) (:setup (setf list1 (random-n-phonetics (random 10))) (setf list2 (random-n-phonetics (random 10)))) (:test (union (ensure-same (set-union list1 list2 :test #'string-lessp) (sort (union list1 list2) #'string-lessp)))) (:test (intersection (ensure-same (set-intersection list1 list2 :test #'string-lessp) (sort (intersection list1 list2 :test #'string-equal) #'string-lessp))))) (defun test< (a b) (cond ((not (or a b)) nil) ((not (and a b)) t) (t (< a b)))) (deftestsuite integer-test (set-test) (array1 array2) (:function (random-n-numbers (n max) (let ((seq (make-array 16 :adjustable t :fill-pointer 0))) (iter (repeat n) (set-insert (random max) seq :test #'test<)) seq))) (:equality-test 'equalp) (:run-setup :once-per-suite) (:setup (setf array1 (random-n-numbers 10 20)) (setf array2 (random-n-numbers 10 20))) (:test (union (ensure-same (set-union array1 array2 :test #'test<) (coerce (sort (union (coerce array1 'list) (coerce array2 'list)) #'<) 'vector)))) (:test (intersection (ensure-same (set-intersection array1 array2 :test #'test<) (coerce (sort (intersection (coerce array1 'list) (coerce array2 'list)) #'<) 'vector))))) ------------------------------------------------------------------------------------ This is the warnings generated ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE (MY-USER::STRING-TEST)): symbol-macro PHONETICS is bound but not referenced ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE (MY-USER::STRING-TEST)): symbol-macro LIST1 is bound but not referenced ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE (MY-USER::STRING-TEST)): symbol-macro LIST2 is bound but not referenced ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE (MY-USER::STRING-TEST)): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::STRING-TEST (EQL (QUOTE MY-USER::RANDOM-N-PHONETICS)))): symbol-macro LIST1 is bound but not referenced ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::STRING-TEST (EQL (QUOTE MY-USER::RANDOM-N-PHONETICS)))): symbol-macro LIST2 is bound but not referenced ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::STRING-TEST (EQL (QUOTE MY-USER::RANDOM-N-PHONETICS)))): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::SETUP-TEST :AFTER (MY-USER::STRING-TEST)): symbol-macro PHONETICS is bound but not referenced ;;;*** Warning in (METHOD LIFT::SETUP-TEST :AFTER (MY-USER::STRING-TEST)): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL (QUOTE UNION)))): symbol-macro PHONETICS is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL (QUOTE UNION)))): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL (QUOTE INTERSECTION)))): symbol-macro PHONETICS is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL (QUOTE INTERSECTION)))): symbol-macro LIFT-RESULT is bound but not referenced ; (TOP-LEVEL-FORM 8) ; MY-USER::TEST< ; (TOP-LEVEL-FORM 9) ; (TOP-LEVEL-FORM 10) ; (DEFCLASS MY-USER::INTEGER-TEST) ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::INTEGER-TEST (EQL (QUOTE MY-USER::RANDOM-N-NUMBERS)))): symbol-macro ARRAY1 is bound but not referenced ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::INTEGER-TEST (EQL (QUOTE MY-USER::RANDOM-N-NUMBERS)))): symbol-macro ARRAY2 is bound but not referenced ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::INTEGER-TEST (EQL (QUOTE MY-USER::RANDOM-N-NUMBERS)))): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::SETUP-TEST :AFTER (MY-USER::INTEGER-TEST)): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::INTEGER-TEST (EQL (QUOTE UNION)))): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::INTEGER-TEST (EQL (QUOTE INTERSECTION)))): symbol-macro LIFT-RESULT is bound but not referenced ; (TOP-LEVEL-FORM 11) ;;; Compilation finished with 19 warnings, 0 errors. ------------------------------------------------------------------------------------ this is the result of running the code MY-USER 4 > (run-tests :suite 'set-test) # -------------- John Thingstad -- -------------- John Thingstad From jpthing at online.no Tue Apr 8 11:28:11 2008 From: jpthing at online.no (John Thingstad) Date: Tue, 08 Apr 2008 13:28:11 +0200 Subject: [lift-devel] lift-devel@common-lisp.net References: Message-ID: I am runninig LispWorks verion 5.0 on Windows XP. The 19 warnings I get annoy me. Is there a way to prevent this? They are all on the form: ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE (MY-USER::STRING-TEST)): symbol-macro PHONETICS is bound but not referenced Help is appreciated. ------------------------------------------------------------------------------------ This is the test code ;; ;; testing ;; (deftestsuite set-test () ()) (deftestsuite string-test (set-test) ((phonetics (list "alfa" "bravo" "charlie" "delta" "echo" "foxtrot" "golf" "hotel" "india" "juliet" "kilo" "lima" "mama" "november" "oscar" "papa" "qbeck" "romeo" "sierra" "tango" "uniform" "victor" "wiskey" "x-ray" "yankee" "zulu")) list1 list2) (:function (random-n-phonetics (n) (check-type n (integer 0 25)) (iter (with result = nil) (with p = phonetics) (repeat n) ( for len downfrom 26) (let ((val (nth (random len) p))) ( setf result (set-insert val result :test #'string-lessp)) (setf p (remove val p :count 1))) (finally (return result))))) (:equality-test 'equalp) (:run-setup :once-per-suite) (:setup (setf list1 (random-n-phonetics (random 10))) (setf list2 (random-n-phonetics (random 10)))) (:test (union (ensure-same (set-union list1 list2 :test #'string-lessp) (sort (union list1 list2) #'string-lessp)))) (:test (intersection (ensure-same (set-intersection list1 list2 :test #'string-lessp) (sort (intersection list1 list2 :test #'string-equal) #'string-lessp))))) (defun test< (a b) (cond ((not (or a b)) nil) ((not (and a b)) t) (t (< a b)))) (deftestsuite integer-test (set-test) (array1 array2) (:function (random-n-numbers (n max) (let ((seq (make-array 16 :adjustable t :fill-pointer 0))) (iter (repeat n) (set-insert (random max) seq :test #'test<)) seq))) (:equality-test 'equalp) (:run-setup :once-per-suite) (:setup (setf array1 (random-n-numbers 10 20)) (setf array2 (random-n-numbers 10 20))) (:test (union (ensure-same (set-union array1 array2 :test #'test<) (coerce (sort (union (coerce array1 'list) (coerce array2 'list)) #'<) 'vector)))) (:test (intersection (ensure-same (set-intersection array1 array2 :test #'test<) (coerce (sort (intersection (coerce array1 'list) (coerce array2 'list)) #'<) 'vector))))) ------------------------------------------------------------------------------------ This is the warnings generated ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE (MY-USER::STRING-TEST)): symbol-macro PHONETICS is bound but not referenced ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE (MY-USER::STRING-TEST)): symbol-macro LIST1 is bound but not referenced ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE (MY-USER::STRING-TEST)): symbol-macro LIST2 is bound but not referenced ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE (MY-USER::STRING-TEST)): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::STRING-TEST (EQL (QUOTE MY-USER::RANDOM-N-PHONETICS)))): symbol-macro LIST1 is bound but not referenced ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::STRING-TEST (EQL (QUOTE MY-USER::RANDOM-N-PHONETICS)))): symbol-macro LIST2 is bound but not referenced ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::STRING-TEST (EQL (QUOTE MY-USER::RANDOM-N-PHONETICS)))): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::SETUP-TEST :AFTER (MY-USER::STRING-TEST)): symbol-macro PHONETICS is bound but not referenced ;;;*** Warning in (METHOD LIFT::SETUP-TEST :AFTER (MY-USER::STRING-TEST)): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL (QUOTE UNION)))): symbol-macro PHONETICS is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL (QUOTE UNION)))): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL (QUOTE INTERSECTION)))): symbol-macro PHONETICS is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL (QUOTE INTERSECTION)))): symbol-macro LIFT-RESULT is bound but not referenced ; (TOP-LEVEL-FORM 8) ; MY-USER::TEST< ; (TOP-LEVEL-FORM 9) ; (TOP-LEVEL-FORM 10) ; (DEFCLASS MY-USER::INTEGER-TEST) ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::INTEGER-TEST (EQL (QUOTE MY-USER::RANDOM-N-NUMBERS)))): symbol-macro ARRAY1 is bound but not referenced ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::INTEGER-TEST (EQL (QUOTE MY-USER::RANDOM-N-NUMBERS)))): symbol-macro ARRAY2 is bound but not referenced ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::INTEGER-TEST (EQL (QUOTE MY-USER::RANDOM-N-NUMBERS)))): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::SETUP-TEST :AFTER (MY-USER::INTEGER-TEST)): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::INTEGER-TEST (EQL (QUOTE UNION)))): symbol-macro LIFT-RESULT is bound but not referenced ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::INTEGER-TEST (EQL (QUOTE INTERSECTION)))): symbol-macro LIFT-RESULT is bound but not referenced ; (TOP-LEVEL-FORM 11) ;;; Compilation finished with 19 warnings, 0 errors. ------------------------------------------------------------------------------------ this is the result of running the code MY-USER 4 > (run-tests :suite 'set-test) # -------------- John Thingstad From gwking at metabang.com Tue Apr 8 13:27:30 2008 From: gwking at metabang.com (Gary King) Date: Tue, 8 Apr 2008 09:27:30 -0400 Subject: [lift-devel] lift-devel@common-lisp.net In-Reply-To: References: Message-ID: <8219D508-CBDB-46D8-B604-C652DC351A26@metabang.com> Hi John, Thanks for this report. It looks as if LispWorks is better about catching unused symbol-macros than Allegro is. I will try to fix this shortly. I'll let you know when I have an update out. On Apr 8, 2008, at 6:38 AM, John Thingstad wrote: > I am runninig LispWorks verion 5.0 on Windows XP. > The 19 warnings I get annoy me. Is there a way to prevent this? > > They are all on the form: > > ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE > (MY-USER::STRING-TEST)): symbol-macro PHONETICS is bound but not > referenced > > Help is appreciated. > > ------------------------------------------------------------------------------------ > > This is the test code > > ;; > ;; testing > ;; > > > (deftestsuite set-test () ()) > > (deftestsuite string-test (set-test) > ((phonetics (list "alfa" "bravo" "charlie" "delta" "echo" "foxtrot" > "golf" > "hotel" "india" "juliet" "kilo" "lima" "mama" > "november" > "oscar" "papa" "qbeck" "romeo" "sierra" "tango" > "uniform" > "victor" "wiskey" "x-ray" "yankee" "zulu")) > list1 list2) > (:function > (random-n-phonetics (n) > (check-type n (integer 0 25)) > (iter > (with result = nil) > (with p = phonetics) > (repeat n) > ( for len downfrom 26) > (let ((val (nth (random len) p))) > ( setf result (set-insert val result :test #'string-lessp)) > (setf p (remove val p :count 1))) > (finally (return result))))) > (:equality-test 'equalp) > (:run-setup :once-per-suite) > (:setup > (setf list1 (random-n-phonetics (random 10))) > (setf list2 (random-n-phonetics (random 10)))) > (:test (union > (ensure-same > (set-union list1 list2 :test #'string-lessp) > (sort (union list1 list2) #'string-lessp)))) > (:test (intersection > (ensure-same > (set-intersection list1 list2 :test #'string-lessp) > (sort (intersection list1 list2 :test #'string-equal) > #'string-lessp))))) > > (defun test< (a b) > (cond > ((not (or a b)) nil) > ((not (and a b)) t) > (t (< a b)))) > > (deftestsuite integer-test (set-test) > (array1 array2) > (:function > (random-n-numbers (n max) > (let ((seq (make-array 16 :adjustable t :fill- > pointer > 0))) > (iter (repeat n) (set-insert (random max) > seq :test > #'test<)) > seq))) > (:equality-test 'equalp) > (:run-setup :once-per-suite) > (:setup > (setf array1 (random-n-numbers 10 20)) > (setf array2 (random-n-numbers 10 20))) > (:test (union > (ensure-same > (set-union array1 array2 :test #'test<) > (coerce (sort > (union (coerce array1 'list) > (coerce array2 'list)) > #'<) > 'vector)))) > (:test (intersection > (ensure-same > (set-intersection array1 array2 :test #'test<) > (coerce (sort > (intersection (coerce array1 'list) > (coerce array2 'list)) > #'<) > 'vector))))) > > > ------------------------------------------------------------------------------------ > > This is the warnings generated > > ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE > (MY-USER::STRING-TEST)): symbol-macro PHONETICS is bound but not > referenced > ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE > (MY-USER::STRING-TEST)): symbol-macro LIST1 is bound but not > referenced > ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE > (MY-USER::STRING-TEST)): symbol-macro LIST2 is bound but not > referenced > ;;;*** Warning in (METHOD LIFT::MAKE-SINGLE-PROTOTYPE > (MY-USER::STRING-TEST)): symbol-macro LIFT-RESULT is bound but not > referenced > ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::STRING- > TEST > (EQL (QUOTE MY-USER::RANDOM-N-PHONETICS)))): symbol-macro LIST1 is > bound > but not referenced > ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::STRING- > TEST > (EQL (QUOTE MY-USER::RANDOM-N-PHONETICS)))): symbol-macro LIST2 is > bound > but not referenced > ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::STRING- > TEST > (EQL (QUOTE MY-USER::RANDOM-N-PHONETICS)))): symbol-macro LIFT- > RESULT is > bound but not referenced > ;;;*** Warning in (METHOD LIFT::SETUP-TEST :AFTER (MY-USER::STRING- > TEST)): > symbol-macro PHONETICS is bound but not referenced > ;;;*** Warning in (METHOD LIFT::SETUP-TEST :AFTER (MY-USER::STRING- > TEST)): > symbol-macro LIFT-RESULT is bound but not referenced > ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL > (QUOTE UNION)))): symbol-macro PHONETICS is bound but not referenced > ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL > (QUOTE UNION)))): symbol-macro LIFT-RESULT is bound but not referenced > ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL > (QUOTE INTERSECTION)))): symbol-macro PHONETICS is bound but not > referenced > ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::STRING-TEST (EQL > (QUOTE INTERSECTION)))): symbol-macro LIFT-RESULT is bound but not > referenced > ; (TOP-LEVEL-FORM 8) > ; MY-USER::TEST< > ; (TOP-LEVEL-FORM 9) > ; (TOP-LEVEL-FORM 10) > ; (DEFCLASS MY-USER::INTEGER-TEST) > ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::INTEGER- > TEST > (EQL (QUOTE MY-USER::RANDOM-N-NUMBERS)))): symbol-macro ARRAY1 is > bound > but not referenced > ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::INTEGER- > TEST > (EQL (QUOTE MY-USER::RANDOM-N-NUMBERS)))): symbol-macro ARRAY2 is > bound > but not referenced > ;;;*** Warning in (METHOD LIFT::FLET-TEST-FUNCTION (MY-USER::INTEGER- > TEST > (EQL (QUOTE MY-USER::RANDOM-N-NUMBERS)))): symbol-macro LIFT-RESULT is > bound but not referenced > ;;;*** Warning in (METHOD LIFT::SETUP-TEST :AFTER > (MY-USER::INTEGER-TEST)): symbol-macro LIFT-RESULT is bound but not > referenced > ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::INTEGER-TEST (EQL > (QUOTE UNION)))): symbol-macro LIFT-RESULT is bound but not referenced > ;;;*** Warning in (METHOD LIFT::LIFT-TEST (MY-USER::INTEGER-TEST (EQL > (QUOTE INTERSECTION)))): symbol-macro LIFT-RESULT is bound but not > referenced > ; (TOP-LEVEL-FORM 11) > ;;; Compilation finished with 19 warnings, 0 errors. > > ------------------------------------------------------------------------------------ > > this is the result of running the code > > MY-USER 4 > (run-tests :suite 'set-test) > # > > -------------- > John Thingstad > > > > -- > -------------- > John Thingstad > _______________________________________________ > lift-devel mailing list > lift-devel at common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/lift-devel -- Gary Warren King, metabang.com Cell: (413) 559 8738 Fax: (206) 338-4052 gwkkwg on Skype * garethsan on AIM From Top at common-lisp.net Sun Apr 13 10:08:11 2008 From: Top at common-lisp.net (Top at common-lisp.net) Date: 13 Apr 2008 03:08:11 -0700 Subject: [lift-devel] 1000s Of Hits From Google, Yahoo, MSN And Others At $0 Cost To You ! Message-ID: <20080413030811.3F096E14A0B4D417@from.header.has.no.domain> Hi, my name is Sebastian Foss. As incredible as it may sound you're about to discover a system how you can drive 1000s of potential customers to any website or affiliate website at $0 cost to you!What if I told you that I'm making thousands of dollars each week and I'm not paying a dime for advertising ? Google, Yahoo, MSN and others are sending me hundreds of new customers every week - at $0 cost! Make Money On Auto-Pilot While You're Sleeping Or Even On Vacation? STOP Everything You Are Doing and Read This Now! This works for any product, website or affiliate website! FOR FULL DETAILS PLEASE READ THE ATTACHED .HTML FILE To Unsubscribe Please read the attached .txt file -------------- next part -------------- An HTML attachment was scrubbed... URL: -------------- next part -------------- An embedded and charset-unspecified text was scrubbed... Name: Unsubscribe email.txt URL: From Blog at common-lisp.net Sat Apr 19 12:21:45 2008 From: Blog at common-lisp.net (Blog at common-lisp.net) Date: 19 Apr 2008 20:21:45 +0800 Subject: [lift-devel] How would you like to have your ad on 2 Million Websites ? Message-ID: <20080419202145.C5D53E55C5EB4D60@from.header.has.no.domain> How would you like 2 Million Sites linking to your ad ? Weblog or blog population is exploding around the world, resembling the growth of e-mail users in the 1990s. Post your ads where people read them! - What if you could place your ad on all these sites ? Right, that would mean you would have millions of sites linking to your ad. For Full details please read the attached .html file Unsubscribe Please read the attached .txt file -------------- next part -------------- An HTML attachment was scrubbed... URL: -------------- next part -------------- An embedded and charset-unspecified text was scrubbed... Name: Unsubscribe email.txt URL: From Targeted at common-lisp.net Sat Apr 26 02:30:08 2008 From: Targeted at common-lisp.net (Targeted at common-lisp.net) Date: 25 Apr 2008 19:30:08 -0700 Subject: [lift-devel] How would you like unlimited hits to your website 15 minutes from now ? Message-ID: <20080425193003.D4E35833E0F5DA26@from.header.has.no.domain> An HTML attachment was scrubbed... URL: -------------- next part -------------- An HTML attachment was scrubbed... URL: -------------- next part -------------- An embedded and charset-unspecified text was scrubbed... Name: Unsubscribe email.txt URL: