|| > WHAT LISP: I was using Allegro version 8.0 on Windows (modern image<br>
|| > version - the one w/ case sensitive symbol names) - its called mlisp.exe<br>
|| > they also have alisp.exe that uppercases all symbol names.<br>
|| [snip]<br>
|| <br>
|| I'm 90% sure this is the problem: the hash table's getters/setters are dynamically created<br>
|| with uppercase letters, yet when they are invoked they use lowercase letters.<br>
|| This is fine for ansi cl, but not so much for "modern" versions of lisp.<br>
|| <br>
|| Use the ansi version of allegro (alisp) and I think that solves this problem.<br>
<br>
<br>
Thanks again Lou!<br>
For alisp.exe, I fixed some key upper -vs- lower case symbol problems.<br>
I had started replacing depackage import/uses using
defpackage2 (which I thought I'd have to replace everywhere but so far I've only
changed one file - <span lang="en-us"><font face="Arial" size="2"> split-sequence.lisp </font></span>).<br>
<br>
I will post the changes to the forum. ?? what is the best way to submit
code? I tried to email a uuencoded gzip compressed file
previously but that<br>
did easily make it to the web site.<br>
<br>
<span lang="en-us"><font face="Arial" size="2"> now have loaded</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">"</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">
start.lisp</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">"</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2"> (at least the load now returns true!)
</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2"> </font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2"> And I can click on</font></span><span lang="en-us">
</span><a href="http://127.0.0.1:8080/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"><span lang="en-us"></span><span lang="en-us"><u><font color="#0000ff" face="Arial" size="2">http://127.0.0.1:8080/
</font></u></span><span lang="en-us"></span></a><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2"> and see the demos. </font></span>
I have a problem w/ dynamic form demo which blows up.<br>
The other demos seem to work.
<span lang="en-us"></span><span lang="en-us"></span>
<p align="left"><span lang="en-us"><b><font face="Arial" size="2">I needed to fix 2</font></b></span><span lang="en-us"></span><span lang="en-us"><b> <font face="Arial" size="2">areas</font></b></span><span lang="en-us">
</span><span lang="en-us"><b><font face="Arial" size="2">:</font></b></span></p>
<p align="left"><span lang="en-us"><b><font face="Arial" size="2">(1)</font></b></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2"> package names == sol</font></span><span lang="en-us"></span>
<span lang="en-us"><font face="Arial" size="2">ved with</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">coming</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">
up w/ a new </font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">defpackage2</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2"> macro</font></span>
<span lang="en-us">
</span><span lang="en-us"></span></p>
<p align="left"><span lang="en-us"><b><font face="Arial" size="2">(2)</font></b></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">with-unique-names
</font></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">macro</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">
from</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">package</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">:it.bese.arnesi</font></span><span lang="en-us">
</span><span lang="en-us"><font face="Arial" size="2"> is never found<br>
<here I just hacked it by choose a restart to use the fnct w/ that name in a different package><br>
</font></span></p>
<br>
<my code is as follows for creating defpackage2 ><br>
<br><br>
<p align="left"><span lang="en-us"><font face="Arial" size="2">Details:</font></span></p>
<p align="left"><span lang="en-us"><b><font face="Arial" size="2">== (1) ==</font></b></span><span lang="en-us"></span><span lang="en-us"></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">I ha</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">d</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">
some trouble w/</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2"> package names &</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">I</font></span>
<span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">developed a nice soln to always use symbol name. It works.<br>
BUT for</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">som</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">e crazy reason (unknown to me) I</font>
</span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">had to stick</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2"> string-2-function-symbol-name</font></span>
<span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2"> and</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">string-2-</font></span><span lang="en-us"></span><span lang="en-us">
<font face="Arial" size="2">package</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">-symbol-name</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">
it in the</font></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">CL package to get it to work. Otherwise I got "unbound fnct" errors in the
split-sequence.lisp file.</font></span><span lang="en-us"></span><span lang="en-us"> </span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">(which is what I did)</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">See end of this email for code:</font></span></p>
<br>
<p align="left"><span lang="en-us"><font face="Arial" size="2">I</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">defined a new macro defpackage2 that automatically</font></span><span lang="en-us">
</span><span lang="en-us"><font face="Arial" size="2"> c</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">onverts string forms to symbols.</font></span><span lang="en-us"></span><span lang="en-us">
</span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">Idea</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">is to easily</font></span><span lang="en-us"></span><span lang="en-us">
<font face="Arial" size="2">map:</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">(<span style="font-weight: bold;">defpackage2 </span>:split-sequence</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:use "cl")</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:nicknames "partition")</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:export "split-sequence" "split-sequence-if" "split-sequence-if-not"</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2"> "partition" "partition-if" "partition-if-not"))</font></span><span lang="en-us"></span><span lang="en-us"></span>
</p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">to:</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">(<span style="font-weight: bold;">defpackage </span>:split-sequence</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:USE :CL)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:NICKNAMES :PARTITION)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:EXPORT #:SPLIT-SEQUENCE #:SPLIT-SEQUENCE-IF #:SPLIT-SEQUENCE-IF-NOT #:PARTITION #:PARTITION-IF #:PARTITION-IF-NOT))</font></span><span lang="en-us">
</span><span lang="en-us"></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">Then I was going to go thru the</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">"</font></span><span lang="en-us">
</span>
<span lang="en-us"><font face="Arial" size="2">box set</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">"</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">
and replace all defpackage w/ defpackage2</font></span></p>
<p align="left"><span lang="en-us"><b><font face="Arial" size="2">== (2) ==</font></b></span><span lang="en-us"></span><span lang="en-us"></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">I had to hand eval the</font></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">
with-unique-names</font></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">macro</font></span><span lang="en-us"></span><span lang="en-us">
</span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">when lisp was in a error break</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">: (</font></span><span lang="en-us">
</span><span lang="en-us"><font face="Arial" size="2">its definition is</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">shown below</font></span><span lang="en-us"></span><span lang="en-us">
<font face="Arial" size="2">
??? for some reason it thinks that its not defined in the package yet
its there near the top of the file that is being compiled???</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">)</font></span><span lang="en-us"></span><span lang="en-us"></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">---</font></span><span lang="en-us"></span><span lang="en-us"> </span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">for some reason somewhere in</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">one-liners.lisp</font></span><span lang="en-us">
</span><span lang="en-us"><font face="Arial" size="2"> it tries to use</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">: WITH-UNIQUE-NAMES</font></span><span lang="en-us"></span><span lang="en-us">
<font face="Arial" size="2"> and I always had to choose restart use the</font></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">one from CL-PPRE</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">…</font></span><span lang="en-us"></span><span lang="en-us">
<font face="Arial" size="2"> this time I eval-ed the macro definition while in the</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2"> :it.bese.arnesi</font></span><span lang="en-us"></span>
<span lang="en-us"><font face="Arial" size="2"> package</font></span></p>
<br>
<br>
<br>
<p align="left"><span lang="en-us"><font face="Arial" size="2">Appendix:</font></span><span lang="en-us"></span><span lang="en-us"></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">--</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2"> to solve == (1) ==</font></span><span lang="en-us"></span><span lang="en-us">
</span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">here is</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">some</font></span><span lang="en-us"></span><span lang="en-us">
<font face="Arial" size="2">new code</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">I put into top of file:</font></span><span lang="en-us"></span><span lang="en-us"> </span><span lang="en-us">
</span><span lang="en-us"> <font face="Arial" size="2">split-sequence.lisp</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2"> (</font></span><span lang="en-us"></span><span lang="en-us">
<font face="Arial" size="2">strangely this</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">file</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">
is the only place</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">that</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">I had to use defpackage2,
</font></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">but most like</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2">ly</font></span><span lang="en-us"></span><span lang="en-us">
<font face="Arial" size="2"> a better place would be in</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">new ?packager? module:</font></span><span lang="en-us"></span><span lang="en-us">
</span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">Then</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">we could have a </font></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">defpackage2 -> defpackage by default</font></span><span lang="en-us"></span><span lang="en-us"><font face="Arial" size="2"> (macro expands to `(defpackage ,packagename ,@args)
</font></span><span lang="en-us"></span><span lang="en-us"></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">and in other lisps</font></span></p>
<p align="left"><span lang="en-us"><font face="Arial" size="2">like allegro and lispworks??? We use the macro I wrote to force</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">us to use
</font></span><span lang="en-us"></span><span lang="en-us"> <font face="Arial" size="2">symbols for fnct + package names.</font></span><span lang="en-us"></span><span lang="en-us"></span></p>
<br>
<br>
<br>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">(in-package :COMMON-LISP)</font></span></p>
<br>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;;;;;;;;;;;;;;;;;;;;;;;;</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;; allegro likes lower case names for modern images! *Its really hard to get</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;; the uppercase syms correct ==> so we use a defpackage2 that maps strings</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;; to symbols...</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;;;;;;;;;;;;;;;;;;;;;;;;</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">(defun string-2-package-symbol-name (string)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> "convert a string like \"cl\" to sym: :cl"</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (let ((downcase (string-downcase string)))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> ;;(print downcase)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (read-from-string (format nil ":~A" downcase)) ;; return a SYM</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> ;; (format nil ":~A" downcase) ;; return a STRING</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> ))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">; (string-2-symbol "cl")</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">(defun string-2-function-symbol-name (string)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> "convert a string like \"downcase\" to sym: #:downcase"</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (let ((downcase (string-downcase string)))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> ;;(print downcase)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (read-from-string (format nil "#:~A" downcase)) ;; return a SYM</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> ;; (format nil "#:~A" downcase) ;; return a STRING</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> ))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">; (string-2-symbol "downcase")</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">(defmacro defpackage2 (pkg-name &rest spec-list)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> "smartly define a package, hunt for :use :nicknames :export and make any symbol names specified as a string to be symbols</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">(defpackage2 :split-sequence</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:use 'cl')</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:nicknames 'partition')</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:export 'split-sequence' 'split-sequence-if' 'split-sequence-if-not'</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2"> 'partition' 'partition-if' 'partition-if-not'))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">==> converts to:</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">(DEFPACKAGE :SPLIT-SEQUENCE</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:USE :CL)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:NICKNAMES :PARTITION)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:EXPORT #:SPLIT-SEQUENCE #:SPLIT-SEQUENCE-IF #:SPLIT-SEQUENCE-IF-NOT #:PARTITION #:PARTITION-IF #:PARTITION-IF-NOT))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> "</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (labels ((convert-all-strings-to-syms (list str-to-sym-converter)</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2"> (mapcar #'(lambda (STR) (if (stringp STR) (funcall str-to-sym-converter STR)</font></span></p>
<p align="left"><span lang="en-us">
<font face="Lucida Console" size="2"> STR)) list)))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (dolist (L spec-list)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (case (first L)</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2">( (:use :nicknames)</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2"> (format t "fixing ~A~%" (first L))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (setf (cdr L) </font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2">;(convert-all-strings-to-syms (cdr L) #'split-sequence:string-2-package-symbol-name )</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2">(convert-all-strings-to-syms (cdr L) #'string-2-package-symbol-name )</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> ;;(cdr L) </font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> ))</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2">( (:export)</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2"> (format t "fixing ~A~%" (first L))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (setf (cdr L) </font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2">;(convert-all-strings-to-syms (cdr L) #'split-sequence:string-2-function-symbol-name )</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2">(convert-all-strings-to-syms (cdr L) #'string-2-function-symbol-name )</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2">;;(cdr L) )</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> ))))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">
;; `(quote (defpackage3 ,pkg-name ,spec-list)) ;;; use this if you
just want it returned quoted to call defpackage3 a fictuous fnct (w/o
being run)</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> `(defpackage ,pkg-name ,@spec-list)))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">; </font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;== to test it:</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">; </font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">; (macroexpand-1 (defpackage2 :split-sequence</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">; (:use "cl")</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">; (:nicknames "partition")</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">; (:export "split-sequence" "split-sequence-if" "split-sequence-if-not"</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">; "partition" "partition-if" "partition-if-not")))</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">; </font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;</font></span><span lang="en-us"></span><span lang="en-us"></span></p>
<br>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">then I do:</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">;; allegro likes lower case names for modern images! *Its really hard to get</font></span><span lang="en-us"></span><span lang="en-us"><font face="Lucida Console" size="2">
upper case vs lower case right w/ strings evidently * defpackage2 will always work.</font></span><span lang="en-us"></span><span lang="en-us"></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">#+allegro</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">(defpackage2 :split-sequence</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:use "cl")</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:nicknames "partition")</font></span></p>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2"> (:export "split-sequence" "split-sequence-if" "split-sequence-if-not"</font></span></p>
<p align="left"><span lang="en-us"> <font face="Lucida Console" size="2"> "partition" "partition-if" "partition-if-not"))</font></span></p>
<br>
<p align="left"><span lang="en-us"><font face="Lucida Console" size="2">#+allegro</font></span></p>
<span lang="en-us"><font face="Lucida Console" size="2">(in-package :split-sequence)</font></span><br>
<br>