\nKam gerade in einer Mail, die mir der liebe Mrf gevorwärtst hat. Ursprünglich über die netaudio Mailingliste. Ein kleines Lisp Snippet hat das übrige erledigt.\n<\/p>\n
\nDas Technomuseum<\/a>\n<\/p>\n Kam gerade in einer Mail, die mir der liebe Mrf gevorwärtst hat. Ursprünglich über die netaudio Mailingliste. Ein kleines Lisp Snippet hat das übrige erledigt. Das Technomuseum (defun load-techno-urls (file) (with-open-file (s file :direction :input) (loop for l = (read-line … Continue reading \n\n(defun load-techno-urls (file)\n (with-open-file (s file :direction :input)\n (loop for l = (read-line s nil 'eof)\n\t with last-url = nil\n\t with res = nil\n\t until (eql l 'eof)\n\t do (if (and (>= (length l) 7)\n\t\t (string-equal (subseq l 0 7) \"http:\/\/\"))\n\t\t (progn\n\t\t (when last-url\n\t\t (push last-url res))\n\t\t (setf last-url (string-trim (list #\\Space #\\Tab #\\Newline) l)))\n\t\t \n\t\t (if (and (>= (length l) 1)\n\t\t\t (eql (char l 0) #\\Space))\n\t\t (when last-url\n\t\t (push last-url res)\n\t\t (setf last-url nil))\n\t\t (when last-url\n\t\t (setf last-url (concatenate 'string last-url l)))))\n\t finally (return (remove-duplicates (cons last-url res) :test #'string-equal)))))\n\t\t \n<\/pre>\n","protected":false},"excerpt":{"rendered":"