cl-irc-cvs

cl-irc-cvs@common-lisp.net

220 discussions

[Cl-irc-cvs] CVS update: cl-irc/debian/changelog
by Kevin Rosenberg 29 Mar '04

29 Mar '04

Update of /project/cl-irc/cvsroot/cl-irc/debian In directory common-lisp.net:/tmp/cvs-serv18433 Modified Files: changelog Log Message: Automated commit for debian_version_0_5_2 Date: Mon Mar 29 14:08:39 2004 Author: krosenberg Index: cl-irc/debian/changelog diff -u cl-irc/debian/changelog:1.4 cl-irc/debian/changelog:1.5 --- cl-irc/debian/changelog:1.4 Mon Mar 29 14:07:55 2004 +++ cl-irc/debian/changelog Mon Mar 29 14:08:36 2004 @@ -1,4 +1,4 @@ -cl-irc (0.5.2-1) unstable; urgency=low +cl-irc (0.5.2) unstable; urgency=low * New upstream

1 0

[Cl-irc-cvs] CVS update: cl-irc/cl-irc.asd
by Kevin Rosenberg 29 Mar '04

29 Mar '04

Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv12310 Modified Files: cl-irc.asd Log Message: new debian release, update version number Date: Mon Mar 29 14:07:55 2004 Author: krosenberg Index: cl-irc/cl-irc.asd diff -u cl-irc/cl-irc.asd:1.1.1.1 cl-irc/cl-irc.asd:1.2 --- cl-irc/cl-irc.asd:1.1.1.1 Mon Jan 5 09:13:03 2004 +++ cl-irc/cl-irc.asd Mon Mar 29 14:07:54 2004 @@ -1,4 +1,4 @@ -;;;; $Id: cl-irc.asd,v 1.1.1.1 2004/01/05 14:13:03 eenge Exp $ +;;;; $Id: cl-irc.asd,v 1.2 2004/03/29 19:07:54 krosenberg Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/cl-irc.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -12,8 +12,8 @@ (defsystem cl-irc :name "cl-irc" - :author "Erik Enge" - :version "0.1.0" + :author "Erik Enge & Contributors" + :version "0.5.2" :licence "MIT" :description "Common Lisp interface to the IRC protocol" :depends-on @@ -21,7 +21,7 @@ #-sbcl (:split-sequence) :depends-on (:split-sequence) :properties ((#:author-email . "cl-irc-devel(a)common-lisp.net") - (#:date . "$Date: 2004/01/05 14:13:03 $") + (#:date . "$Date: 2004/03/29 19:07:54 $") ((#:albert #:output-dir) . "doc/api-doc/") ((#:albert #:formats) . ("docbook")) ((#:albert #:docbook #:template) . "book")

1 0

[Cl-irc-cvs] CVS update: cl-irc/debian/changelog
by Kevin Rosenberg 29 Mar '04

29 Mar '04

Update of /project/cl-irc/cvsroot/cl-irc/debian In directory common-lisp.net:/tmp/cvs-serv12310/debian Modified Files: changelog Log Message: new debian release, update version number Date: Mon Mar 29 14:07:55 2004 Author: krosenberg Index: cl-irc/debian/changelog diff -u cl-irc/debian/changelog:1.3 cl-irc/debian/changelog:1.4 --- cl-irc/debian/changelog:1.3 Sat Jan 31 14:06:32 2004 +++ cl-irc/debian/changelog Mon Mar 29 14:07:55 2004 @@ -1,3 +1,9 @@ +cl-irc (0.5.2-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg <kmr(a)debian.org> Mon, 29 Mar 2004 12:06:43 -0700 + cl-irc (0.5.1-1) unstable; urgency=low * New upstream

1 0

[Cl-irc-cvs] ignore
by Erik Enge 09 Mar '04

09 Mar '04

test

1 0

[Cl-irc-cvs] CVS update: cl-irc/command.lisp
by Kevin Rosenberg 08 Feb '04

08 Feb '04

Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv7367 Modified Files: command.lisp Log Message: add patch from cl-irc-devel 2004-02-07 Date: Sat Feb 7 18:32:43 2004 Author: krosenberg Index: cl-irc/command.lisp diff -u cl-irc/command.lisp:1.1.1.1 cl-irc/command.lisp:1.2 --- cl-irc/command.lisp:1.1.1.1 Mon Jan 5 09:13:03 2004 +++ cl-irc/command.lisp Sat Feb 7 18:32:43 2004 @@ -1,4 +1,4 @@ -;;;; $Id: command.lisp,v 1.1.1.1 2004/01/05 14:13:03 eenge Exp $ +;;;; $Id: command.lisp,v 1.2 2004/02/07 23:32:43 krosenberg Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/command.lisp,v $ ;;;; See LICENSE for licensing information. @@ -82,6 +82,9 @@ (remove-all-channels connection) (remove-all-users connection) (send-irc-message connection :quit message) + #+(and sbcl (not sb-thread)) + (sb-sys:invalidate-descriptor (sb-bsd-sockets:socket-file-descriptor + (server-socket connection))) (close (server-stream connection))) (defmethod squit ((connection connection) (server string) (comment string))

1 0

[Cl-irc-cvs] CVS update: cl-irc/example/clhs.lisp cl-irc/example/cliki.lisp cl-irc/example/eliza-rules.lisp
by Brian Mastenbrook 01 Feb '04

01 Feb '04

Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example Modified Files: clhs.lisp cliki.lisp eliza-rules.lisp Log Message: package cleanups, slight changes from current Date: Sun Feb 1 09:11:56 2004 Author: bmastenbrook Index: cl-irc/example/clhs.lisp diff -u cl-irc/example/clhs.lisp:1.3 cl-irc/example/clhs.lisp:1.4 --- cl-irc/example/clhs.lisp:1.3 Thu Jan 22 15:51:16 2004 +++ cl-irc/example/clhs.lisp Sun Feb 1 09:11:56 2004 @@ -1,4 +1,4 @@ -;;;; $Id: clhs.lisp,v 1.3 2004/01/22 20:51:16 bmastenbrook Exp $ +;;;; $Id: clhs.lisp,v 1.4 2004/02/01 14:11:56 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/clhs.lisp,v $ ;;;; clhs.lisp - an example IRC bot for cl-irc @@ -16,7 +16,7 @@ ;;; invoke (clhs::start-clhs-bot "desirednickname" "desiredserver" ;;; "#channel1" "#channel2" "#channel3" ...) -(defpackage :clhs (:use :common-lisp :irc)) +(defpackage :clhs (:use :common-lisp :irc) (:export :start-clhs-bot)) (in-package :clhs) ;;; CLHS. This will be the default lookup. Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.3 cl-irc/example/cliki.lisp:1.4 --- cl-irc/example/cliki.lisp:1.3 Sat Jan 17 14:19:55 2004 +++ cl-irc/example/cliki.lisp Sun Feb 1 09:11:56 2004 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.3 2004/01/17 19:19:55 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.4 2004/02/01 14:11:56 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -8,7 +8,8 @@ ;;; "desiredserver" "#channel1" "#channel2" "#channel3" ...) (defpackage :cliki (:use :common-lisp :irc :sb-bsd-sockets :cl-ppcre) - (:export :start-cliki-bot)) + (:export :start-cliki-bot :*cliki-nickserv-password* + :*respond-to-general-hellos*)) (in-package :cliki) (defvar *small-definitions* nil) @@ -133,7 +134,7 @@ (symbol-macrolet ((it ,test)) ,else)))) -(defparameter *cliki-attention-prefix* "") +(defparameter *cliki-attention-prefix* "^minion[,:]\\s+") (defparameter *cliki-bot-help* "The minion bot supplies small definitions and performs lookups on CLiki. To use it, try ``minion: term?''. To add a term for IRC, try saying ``minion: add \"term\" as: definition'' or ``minion: alias \"term\" as: term''; otherwise, edit the corresponding CLiki page.") @@ -170,23 +171,23 @@ )))))) (defun valid-cliki-message (message) - (eql (search *cliki-attention-prefix* (trailing-argument message) :test #'char-equal) 0)) + (scan *cliki-attention-prefix* (trailing-argument message))) -(defparameter *respond-to-hello* nil) +(defvar *respond-to-general-hellos* nil) (defun anybody-here (string) - (or (scan "(?i)(anybody|aynbody|any body|anyone|aynone|any one|ne1|any1|n e 1|ne 1) (here|awake|there|home|know).*\\?*" string) - (scan "^(?i)\\s*(hello|hi|yo)\\s*(channel|room|people|ppl|all|peeps|)\\s*$" string))) + (if *respond-to-general-hellos* + (or (scan "(?i)(anybody|aynbody|any body|anyone|aynone|any one|ne1|any1|n e 1|ne 1) (here|awake|there|home|know).*\\?*" string) + (scan "^(?i)\\s*(hello|hi|yo)\\s*(channel|room|people|ppl|all|peeps|)\\s*$" string)))) (defun msg-hook (message) - (if (string-equal (first (arguments message)) *cliki-nickname*) - (if (valid-cliki-message message) - (privmsg *cliki-connection* (source message) (cliki-lookup (subseq (trailing-argument message) (length *cliki-attention-prefix*)))) - (privmsg *cliki-connection* (source message) (cliki-lookup (trailing-argument message)))) + (let ((respond-to (if (string-equal (first (arguments message)) *cliki-nickname*) (source message) (first (arguments message))))) (if (valid-cliki-message message) - (privmsg *cliki-connection* (first (arguments message)) (cliki-lookup (subseq (trailing-argument message) (length *cliki-attention-prefix*)))) - (if (and *respond-to-hello* (anybody-here (trailing-argument message))) - (privmsg *cliki-connection* (first (arguments message)) (format nil "~A: hello." (source message))))))) + (privmsg *cliki-connection* respond-to (cliki-lookup (regex-replace *cliki-attention-prefix* (trailing-argument message) ""))) + (if (string-equal (first (arguments message)) *cliki-nickname*) + (privmsg *cliki-connection* respond-to (cliki-lookup (trailing-argument message))) + (if (anybody-here (trailing-argument message)) + (privmsg *cliki-connection* (first (arguments message)) (format nil "~A: hello." (source message)))))))) (defvar *cliki-nickserv-password* "") @@ -198,7 +199,6 @@ (defun start-cliki-bot (nick server &rest channels) (read-small-definitions) (setf *cliki-nickname* nick) - (setf *cliki-attention-prefix* (format nil "~A: " nick)) (setf *cliki-connection* (connect :nickname *cliki-nickname* :server server)) (mapcar #'(lambda (channel) (join *cliki-connection* channel)) channels) (add-hook *cliki-connection* 'irc::irc-privmsg-message 'msg-hook) Index: cl-irc/example/eliza-rules.lisp diff -u cl-irc/example/eliza-rules.lisp:1.1 cl-irc/example/eliza-rules.lisp:1.2 --- cl-irc/example/eliza-rules.lisp:1.1 Sat Jan 17 14:19:55 2004 +++ cl-irc/example/eliza-rules.lisp Sun Feb 1 09:11:56 2004 @@ -168,6 +168,12 @@ ((what (?* ?x) your (?* ?y) about chandler (?* ?z)) (He never tells me anything - what ?x your ?y about my creator ?z)) + ((who (?* ?x) is chandler (?* ?y)) + (chandler is my master)) + + ((who (?* ?x) your master (?* ?y)) + (chandler is my master)) + ((what (?* ?x) you (?* ?y) about (?* ?z)) (I know nothing about ?z - what ?x you ?y about ?z)) ((what (?* ?x) your (?* ?y) about (?* ?z)) @@ -392,8 +398,6 @@ (((?* ?x)) (you speak nonsense) - (ich kann kein englisch) - (whoop! my pants are on fire!) - (look! behind you! superman!) - (watch out or |I'll| capture you in a closure) - (there must be methods of torture for people like you)))) \ No newline at end of file + (does torturing a poor bot with things beyond its comprehension please you?) + (please stop playing with |me...| I am not a toy) + (watch |out,| |you'll| make Krystof angry)))) \ No newline at end of file

1 0

[Cl-irc-cvs] CVS update: cl-irc/debian/changelog cl-irc/debian/control
by Kevin Rosenberg 31 Jan '04

31 Jan '04

Update of /project/cl-irc/cvsroot/cl-irc/debian In directory common-lisp.net:/tmp/cvs-serv26112/debian Modified Files: changelog control Log Message: Automated commit for Debian build of cl-irc Date: Sat Jan 31 14:06:32 2004 Author: krosenberg Index: cl-irc/debian/changelog diff -u cl-irc/debian/changelog:1.2 cl-irc/debian/changelog:1.3 --- cl-irc/debian/changelog:1.2 Wed Jan 7 07:55:12 2004 +++ cl-irc/debian/changelog Sat Jan 31 14:06:32 2004 @@ -1,3 +1,10 @@ +cl-irc (0.5.1-1) unstable; urgency=low + + * New upstream + * Depend on cl-split-sequence + + -- Kevin M. Rosenberg <kmr(a)debian.org> Sat, 31 Jan 2004 12:09:59 -0700 + cl-irc (0.5-1) unstable; urgency=low * New upstream Index: cl-irc/debian/control diff -u cl-irc/debian/control:1.1.1.1 cl-irc/debian/control:1.2 --- cl-irc/debian/control:1.1.1.1 Mon Jan 5 09:13:04 2004 +++ cl-irc/debian/control Sat Jan 31 14:06:32 2004 @@ -7,7 +7,7 @@ Package: cl-irc Architecture: all -Depends: ${shlibs:Depends}, common-lisp-controller (>= 3.37) +Depends: ${shlibs:Depends}, common-lisp-controller (>= 3.37), cl-split-sequence Description: Common Lisp Internet Relay Chat Library cl-irc provides a library for Common Lisp programs to interact with IRC servers. This library has been most tested with SBCL.

1 0

[Cl-irc-cvs] CVS update: cl-irc/example/clhs.lisp
by Brian Mastenbrook 22 Jan '04

22 Jan '04

Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example Modified Files: clhs.lisp Log Message: Cristophe can't add Date: Thu Jan 22 15:51:16 2004 Author: bmastenbrook Index: cl-irc/example/clhs.lisp diff -u cl-irc/example/clhs.lisp:1.2 cl-irc/example/clhs.lisp:1.3 --- cl-irc/example/clhs.lisp:1.2 Mon Jan 5 09:53:15 2004 +++ cl-irc/example/clhs.lisp Thu Jan 22 15:51:16 2004 @@ -1,4 +1,4 @@ -;;;; $Id: clhs.lisp,v 1.2 2004/01/05 14:53:15 bmastenbrook Exp $ +;;;; $Id: clhs.lisp,v 1.3 2004/01/22 20:51:16 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/clhs.lisp,v $ ;;;; clhs.lisp - an example IRC bot for cl-irc @@ -20,7 +20,7 @@ (in-package :clhs) ;;; CLHS. This will be the default lookup. -(defparameter *hyperspec-pathname* #p"/Users/chandler/Sites/HyperSpec/") +(defparameter *hyperspec-pathname* #p"/home/bmastenbrook/HyperSpec/") (defparameter *hyperspec-map-file* (merge-pathnames "Data/Map_Sym.txt" *hyperspec-pathname*)) @@ -55,23 +55,23 @@ ;; Yuk. I know. Fixes welcome. (loop for section from 0 to 27 do (add-clhs-section-to-table section) - do (loop named s for s1 from 1 to 17 + do (loop named s for s1 from 1 to 26 unless (valid-target section s1) do (return-from s nil) do (add-clhs-section-to-table section s1) - do (loop named ss for s2 from 1 to 17 + do (loop named ss for s2 from 1 to 26 unless (valid-target section s1 s2) do (return-from ss nil) do (add-clhs-section-to-table section s1 s2) - do (loop named sss for s3 from 1 to 17 + do (loop named sss for s3 from 1 to 26 unless (valid-target section s1 s2 s3) do (return-from sss nil) do (add-clhs-section-to-table section s1 s2 s3) - do (loop named ssss for s4 from 1 to 17 + do (loop named ssss for s4 from 1 to 26 unless (valid-target section s1 s2 s3 s4) do (return-from ssss nil) do (add-clhs-section-to-table section s1 s2 s3 s4) - do (loop named sssss for s5 from 1 to 17 + do (loop named sssss for s5 from 1 to 26 unless (valid-target section s1 s2 s3 s4 s5) do (return-from sssss nil) do (add-clhs-section-to-table section s1 s2 s3 s4 s5))))))))

1 0

[Cl-irc-cvs] CVS update: cl-irc/example/cliki-bot.asd cl-irc/example/eliza-rules.lisp cl-irc/example/mp2eliza.lisp cl-irc/example/cliki.lisp
by Brian Mastenbrook 17 Jan '04

17 Jan '04

Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example Modified Files: cliki.lisp Added Files: cliki-bot.asd eliza-rules.lisp mp2eliza.lisp Log Message: Commit latest cliki bot Date: Sat Jan 17 14:19:55 2004 Author: bmastenbrook Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.2 cl-irc/example/cliki.lisp:1.3 --- cl-irc/example/cliki.lisp:1.2 Mon Jan 5 09:53:15 2004 +++ cl-irc/example/cliki.lisp Sat Jan 17 14:19:55 2004 @@ -1,13 +1,14 @@ -;;;; $Id: cliki.lisp,v 1.2 2004/01/05 14:53:15 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.3 2004/01/17 19:19:55 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. -;;; To use it, load the cl-irc and cl-ppcre systems, load +;;; To use it, load the net-nittin-irc and cl-ppcre systems, load ;;; cliki.lisp, and invoke (cliki::start-cliki-bot "desirednickname" ;;; "desiredserver" "#channel1" "#channel2" "#channel3" ...) -(defpackage :cliki (:use :common-lisp :irc :sb-bsd-sockets :cl-ppcre)) +(defpackage :cliki (:use :common-lisp :irc :sb-bsd-sockets :cl-ppcre) + (:export :start-cliki-bot)) (in-package :cliki) (defvar *small-definitions* nil) @@ -98,7 +99,8 @@ (setf url (cdr (assoc :location headers)))))) (unwind-protect (if (not (eql response 200)) - (format nil "The term ~A was not found in CLiki." term) + nil + ;;(format nil "The term ~A was not found in CLiki." term) (let ((first-line "")) (loop for i from 1 to 5 do ;; scan the first 5 lines (progn @@ -131,7 +133,7 @@ (symbol-macrolet ((it ,test)) ,else)))) -(defparameter *cliki-attention-prefix* "minion: ") +(defparameter *cliki-attention-prefix* "") (defparameter *cliki-bot-help* "The minion bot supplies small definitions and performs lookups on CLiki. To use it, try ``minion: term?''. To add a term for IRC, try saying ``minion: add \"term\" as: definition'' or ``minion: alias \"term\" as: term''; otherwise, edit the corresponding CLiki page.") @@ -149,24 +151,42 @@ (defn (regex-replace "^alias \"[^\"]+\" as: (.+)$" first-pass "\\1"))) (add-small-definition term (list defn)) "OK, done.") + (progn + (setf first-pass (regex-replace-all "(:|/|\\\\|\\#)" first-pass "")) (or (if (string-equal first-pass "help") *cliki-bot-help*) - (if (scan "^(?i)do my bidding!*$" first-pass) "Yes, my master.") - (concatenate 'string first-pass ": " - (or (let ((term (cdr (assoc first-pass *small-definitions* :test #'string-equal)))) - (if term (if (stringp term) term (cliki-lookup (car term))))) - (cliki-first-sentence first-pass)))))))) + (if (scan "^(?i)hello(\\s|$)" first-pass) "what's up?") + (if (scan "^(?i)hi(\\s|$)" first-pass) "what's up?") + (if (scan "^(?i)yo(\\s|$)" first-pass) "what's up?") + (if (scan "^(?i)(?i)do my bidding!*$" first-pass) "Yes, my master.") + (aif (or (let ((term (cdr (assoc first-pass *small-definitions* :test #'string-equal)))) + (if term (if (stringp term) term (cliki-lookup (car term))))) + (cliki-first-sentence first-pass)) (concatenate 'string first-pass ": " it)) + (if (scan "(!|\\.|\\s.+\\?|\\)|\\()\\s*$" term-with-question) + ;;(generate-text (+ 20 (random 6))) + (ignore-errors (eliza::eliza first-pass)) + ) + (format nil "Sorry, I couldn't find anything in the database for ``~A''.~A" first-pass (if (scan " " first-pass) " Maybe you meant to end with punctuation?" "")) + )))))) (defun valid-cliki-message (message) (eql (search *cliki-attention-prefix* (trailing-argument message) :test #'char-equal) 0)) +(defparameter *respond-to-hello* nil) + +(defun anybody-here (string) + (or (scan "(?i)(anybody|aynbody|any body|anyone|aynone|any one|ne1|any1|n e 1|ne 1) (here|awake|there|home|know).*\\?*" string) + (scan "^(?i)\\s*(hello|hi|yo)\\s*(channel|room|people|ppl|all|peeps|)\\s*$" string))) + (defun msg-hook (message) (if (string-equal (first (arguments message)) *cliki-nickname*) (if (valid-cliki-message message) (privmsg *cliki-connection* (source message) (cliki-lookup (subseq (trailing-argument message) (length *cliki-attention-prefix*)))) (privmsg *cliki-connection* (source message) (cliki-lookup (trailing-argument message)))) (if (valid-cliki-message message) - (privmsg *cliki-connection* (first (arguments message)) (cliki-lookup (subseq (trailing-argument message) (length *cliki-attention-prefix*))))))) + (privmsg *cliki-connection* (first (arguments message)) (cliki-lookup (subseq (trailing-argument message) (length *cliki-attention-prefix*)))) + (if (and *respond-to-hello* (anybody-here (trailing-argument message))) + (privmsg *cliki-connection* (first (arguments message)) (format nil "~A: hello." (source message))))))) (defvar *cliki-nickserv-password* "") @@ -178,6 +198,7 @@ (defun start-cliki-bot (nick server &rest channels) (read-small-definitions) (setf *cliki-nickname* nick) + (setf *cliki-attention-prefix* (format nil "~A: " nick)) (setf *cliki-connection* (connect :nickname *cliki-nickname* :server server)) (mapcar #'(lambda (channel) (join *cliki-connection* channel)) channels) (add-hook *cliki-connection* 'irc::irc-privmsg-message 'msg-hook)

1 0

[Cl-irc-cvs] CVS update: cl-irc/.cvsignore
by Brian Mastenbrook 17 Jan '04

17 Jan '04

Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/home/bmastenbrook/cl-irc Modified Files: .cvsignore Log Message: Changed for cl-irc Date: Sat Jan 17 14:07:25 2004 Author: bmastenbrook Index: cl-irc/.cvsignore diff -u cl-irc/.cvsignore:1.1 cl-irc/.cvsignore:1.2 --- cl-irc/.cvsignore:1.1 Sat Jan 17 14:06:32 2004 +++ cl-irc/.cvsignore Sat Jan 17 14:07:25 2004 @@ -1 +1 @@ -*.fasl pastes.lisp-expr \ No newline at end of file +*.fasl sd.lisp-expr

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cl-irc-cvs