Fw: Reddit: Let's rewrite a better one in Common Lisp.

[I've just posted this in comp.lang.lisp but it should be of interest here
too ;-)]

That would be much more fun than whining. ;-)

So let's rewrite a better one. By better one I mean adding new
functionalities like categories and/or comments on links for instance.

Let's set the rules:

Rule 1:  Anything is OK as long as it's in Common Lisp.
Rule 2: An exception to rule 1 is accepted for stuff like the OS(Linux,
MacOS, etc.), Database (PostgreSQL, MySQL), Webservers (Apache), etc.

After all there are more than enough Lisp web frameworks around (TBNL, UCW,
AServe, CL-HTTP, Araneida, etc. ;-)

Here is a starting point:

(defclass link ()
  ((url :accessor url :initform "http://")
   (title :accessor title :initform "")
   (nb-points :accessor nb-points :initform 1)
   (creation-date :accessor creation-date :initform (get-universal-time))
   ...
   ))

Any takers ?

Marc