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-08-05 08:49:15.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))