Thu Mar 8 05:15:58 UTC 2012 pix@kepibu.org

* Rename notes.org to README.org

Mon Jul 20 18:34:17 UTC 2009 pix@kepibu.org

* see other links, and add reference to cl-syntax-sugar

Mon Jul 20 07:07:16 UTC 2009 pix@kepibu.org

* Some org-mode syntaxisms

Mon Jul 20 06:58:45 UTC 2009 pix@kepibu.org

* Update bug list to include reader bug

Mon Jul 20 01:31:17 UTC 2009 pix@kepibu.org

tagged VERSION 0.1.3

Mon Jul 20 01:31:10 UTC 2009 pix@kepibu.org

* Bump version

Mon Jul 20 01:14:10 UTC 2009 pix@kepibu.org

* Improved feature readers

It turns out #+/#- also need to do their thing under *read-suppress*, rather

than simply skipping two forms.

E.g.,

'(#+(or) #+(not a b) a b c) => '(c)

'(#+(or) #+(and) a b c) => '(b c)

(Not that such constructions are practically portable anyway, but meh.)

Regardless, this fixes that as best I can. Unfortunately, it also forces

the normal package problems within feature expressions:

#+(or) #+(notapackage:foo) 'a => PACKAGE-ERROR

#+(or) #+(cl:notexported) 'a => PACKAGE-ERROR

This is, so far as I can tell, portably unavoidable. However, some (all?)

implementations /already/ have this problem, so at least it's nothing new.

Mon Jul 20 01:09:25 UTC 2009 pix@kepibu.org

* Better reporting of undefined-feature-tests.

Sun Jul 19 13:58:44 UTC 2009 pix@kepibu.org

tagged VERSION 0.1.2

Sun Jul 19 13:58:33 UTC 2009 pix@kepibu.org

* Bump version

Sun Jul 19 13:58:20 UTC 2009 pix@kepibu.org

* Use consp to avoid treating nil as a list

Sun Jul 19 12:31:43 UTC 2009 pix@kepibu.org

tagged VERSION 0.1.1

Sun Jul 19 12:28:28 UTC 2009 pix@kepibu.org

* Take *read-suppress* into account

Sun Jul 19 12:27:37 UTC 2009 pix@kepibu.org

* Minor changes to the notes file

Fri Jul 17 05:24:52 UTC 2009 pix@kepibu.org

* Initial checkin

--- old-portaCL/name-parts.lisp 1970-01-01 00:00:00.000000000 +0000

+++ new-portaCL/name-parts.lisp 2013-07-01 17:38:50.000000000 +0000

@@ -0,0 +1,24 @@

+(in-package #:portaCL)

+

+(defvar *implementation* nil)

+

+(defun lisp-implementation-names ()

+ "Returns a list of names likely to be used in the name of port files."

+ (feature-cond

+ (:allegro '("allegro"))

+ (:clisp '("clisp"))

+ (:cmu '("cmucl" "cmu"))

+ (:cormanlisp '("corman" "cormanlisp"))

+ (:ecl '("ecl"))

+ (:lispworks '("lispworks" "lw"))

+ (:mcl '("mcl"))

+ (:openmcl '("clozure" "openmcl" "mcl"))

+ (:sbcl '("sbcl"))

+ (:scl '("scl"))

+ (:abcl '("abcl" "armedbear"))

+ (t (restart-case (error 'not-implemented)

+ (use-value (value) value)))))

+

+(defun cl-user::implementation (stream object &optional colon-p at-p)

+ (declare (ignore object colon-p at-p))

+ (write-string *implementation* stream))