Commit 14cc446f authored by Dave Cooper's avatar Dave Cooper
Browse files

removed no longer needed quicklisp patches and quicklisp-local directory

parent 1298eec3
(:gdl-base :cl-fad :gdl-cl-typesetting-ql-patch)
(:gdl-base :cl-fad)
......@@ -4,6 +4,6 @@
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license "AGPL unless otherwise indicated" :serial t
:version "2011111700" :depends-on (:gdl-base :cl-fad :gdl-cl-typesetting-ql-patch)
:version "2011111700" :depends-on (:gdl-base :cl-fad)
:components
((:file "source/genworks") (:file "source/cl-lite")))
\ No newline at end of file
......@@ -24,8 +24,6 @@
(defun gdlAjax (req ent)
(format t "At 1~%")
(let* ((query-plist (gwl::assoc-list-to-plist (request-query req)))
(plist (progn (when *debug?* (print-variables query-plist))
(read-safe-string
......@@ -68,9 +66,6 @@
(*clicked-y* (let ((string (getf query-plist :|y|)))
(when string (ignore-errors (parse-integer string))))))
(print-variables (merge-plist-duplicates fields))
(let ((f-e-p (make-object 'form-element-processor
:bashee bashee
:query-plist (merge-plist-duplicates fields))))
......
......@@ -450,15 +450,13 @@ being generated dynamically.
(plist-keys (the query-plist))))
(query-plist-all
(progn
(print-variables (the query-plist))
(append (the radios)
(mapcan #'(lambda(key val)
(unless (or (glisp:match-regexp "^radio-" (format nil "~a" key))
(glisp:match-regexp "-checkedp$" (format nil "~a" key)))
(list key val)))
(plist-keys (the query-plist))
(plist-values (the query-plist))))))
(append (the radios)
(mapcan #'(lambda(key val)
(unless (or (glisp:match-regexp "^radio-" (format nil "~a" key))
(glisp:match-regexp "-checkedp$" (format nil "~a" key)))
(list key val)))
(plist-keys (the query-plist))
(plist-values (the query-plist)))))
(checked-booleans
(mapcan #'(lambda(key)
......@@ -485,8 +483,6 @@ being generated dynamically.
;; form-control object for
;; each key
;;
(print-variables key)
(typep
(ignore-errors
(the bashee root
......@@ -501,9 +497,6 @@ being generated dynamically.
(find key query-plist-keys))
(the form-element-keys))))
(print-variables keys)
(mapcan #'(lambda(key) (list key
(if (member key (the checked-booleans))
(getf (the checked-booleans) key)
......@@ -521,8 +514,7 @@ being generated dynamically.
result)))
(form-elements-to-bash (progn (print-variables (the form-elements-to-bash%))
(the form-elements-to-bash%)))
(form-elements-to-bash (the form-elements-to-bash%))
#+nil
(form-elements-to-bash (mapcan #'(lambda(key val)
......@@ -551,8 +543,6 @@ being generated dynamically.
((validate-and-set!
()
(print-variables (the form-elements-to-bash))
(dotimes (n 2)
(dolist (key (plist-keys (the form-elements-to-bash)))
......
(:gdl-base)
\ No newline at end of file
(asdf:defsystem #:gdl-aserve-ql-patch
:description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2011121800"
:depends-on (:gdl-base)
:components
((:file "source/load")))
(in-package :cl-user)
(when (com.genworks.lisp:featurep :allegro)
(load
(merge-pathnames
"quicklisp-local/portableaserve-20110730-cvs/aserve/aserve.asd-dummy"
com.genworks.lisp:*genworks-source-home*)))
\ No newline at end of file
(asdf:defsystem #:gdl-cl-typesetting-ql-patch
:description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license
"AGPL unless otherwise indicated"
:serial
t
:version
"2012021300"
:depends-on
(:gdl-base)
:components
((:file "source/load")))
\ No newline at end of file
(in-package :cl-user)
(load (merge-pathnames
"quicklisp-local/cl-typesetting-20110219-svn/hyphenation-fp.lisp"
com.genworks.lisp:*genworks-source-home*))
#+nil
(let ((fasl
(compile-file
(merge-pathnames
"quicklisp-local/cl-typesetting-20110219-svn/hyphenation-fp.lisp"
com.genworks.lisp:*genworks-source-home*))))
(load fasl)
(delete-file fasl))
\ No newline at end of file
These are local modifications which I have made to third-party libraries from Quicklisp
=======================================================================================
portableaserve-20110730-cvs/
============================
in aserve/aserve.asd:
after:
#+allegro
(defclass original-aserve (asdf:component)
((loaded :initform nil :accessor loaded)))
added:
#+allegro
(defmethod asdf:source-file-type ((c original-aserve) (s module)) "dummy")
This allows us to do
(ql:quickload "aserve")
on Allegro CL just like on any other platform.
Request to add this change to paserve CVS on Sourceforge (which should
get picked up by Quicklisp) has been sent to kevin@rosenberg.net.
% Extrait du vocabulaire divise TSI Vol. 5 No 4 1986, Jacques Desarmenien
% saisie --bg 30/03/92
% {\`A} passer en 8 bits conform{\'e}ment {\`a} votre syst{\`e}me
% maj sug. DF 19/06/92
% maj sug. DF 11/09/92
% Changement : d{\'e}sami-don-ner en d{\'e}sa-mi-don-ner (f*hyph.tex V1.10 BG 27/12/93)
% maj 8-bits bg 98/02/05
% Ajouts : abhor-rer adh{\'e}-sion r{\'e}dhi-bi-toire for frhyph.tex V2.4 bg 98/02/06
% d{\'e}s-¼u-vre-ment,% have a long name with ¼ V2.5 bg 98/12/22
% added a 7-bits word test "maitrise" with \^ \i. V2.6 bg 99/02/01
% Maj pour frhyph1.tex (dis-conve-nance) V2.7 2003/02/12
% Maj pour ig-ni-vome (igni-vome n'est pas correct) V2.8 2003/02/13
%
%% checksum = "56856 154 302 7386"
%%
%
abon-dam-ment,abs-ti-nence,ac-com-mo-da-tion,ac{\'e}-ti-fier,%
acre,ad{\'e}-qua-tion,adu-la-teur,af-fai-rer,%
af-front,ago-nie,ai-guayer,al-bi-nisme,%
al-g{\`e}bre,al-li-ga-tor,al-ti-port,am-bu-la-toire,%
amon-ce-ler,ana-chro-nique,an-dr{\`e}ne,an-h{\'e}-ler,%
anor-ma-lit{\'e},an-ti-com-mu-nisme,an-ti-po-lio-my{\'e}-li-tique,ape-tis-ser,%
ap-pa-reille-ment,ap-pro-fon-dir,ar-bi-tral,ar{\'e}ique,%
ar-mon,ar-s{\'e}-niure,asexuel,as-si-mil{\'e},%
as-tro-nef,at-te-lage,au-dio-fr{\'e}-quence,au-to-cen-sure,%
au-to-strade,avia-tion,azur{\'e},ba-gue-naude,%
bal-ka-nique,ban-nir,bar-gui-gner,bas-sine,%
ba-va-roise,b{\^e}-le-ment,ber-line,bi-blio-bus,%
bi-gleux,bio-d{\'e}-gra-dable,bi-sec-tion,blas-tula,%
bo{\"e}sse,bo-nite,bou-ca-ner,boul-do-zeur,%
bourse,brah-ma-nique,bre-telle,bro-can-tage,%
bruine,Bulgare,ca-ban,caddy,%
cairn,ca-life,ca-mer,cange,%
cap,ca-puce,carde,ca-rot-ter,%
ca-s{\'e}a-tion,ca-ta-pulte,ca-val-cade,ce-nelle,%
c{\'e}-r{\'e}-mo-nial,chaintre,chan-latte,char-mille,%
chauf-feur,che-va-le-ment,chi-m{\'e}-rique,choi-sir,%
chro-mo-so-mique,cin{\'e},ci-ta-din,cla-ri-fier,%
clin-foc,coas-se-ment,cof-fret,col-lec-tion,%
com-bat,com-mun,com-plexe,concen-trique,%
condi-ment,confron-ter,conno-ta-tion,constant,%
conti-gu{\"\i}t{\'e},contre-marque,convoi-ter,co-que-rie,%
cor-ni{\`e}re,cor-v{\'e}e,cou-d{\'e}e,cou-ronne,%
cra-chi-ner,cr{\'e}-dence,cri-bl{\'e},cro-qui-gno-let,%
cu-bi-lot,cu-mul,cy-clo-mo-to-riste,da-leau,%
d{\'e}-am-bu-la-tion,d{\'e}-bou-cler,d{\'e}-can-ta-tion,d{\'e}-chaus-se-ment,%
d{\'e}-clor,d{\'e}-cou-pler,d{\'e}-dire,d{\'e}-fi-lage,%
d{\'e}-ga-zon-nage,d{\'e}-gri-ser,d{\'e}-l{\'e}-gu{\'e},d{\'e}-ma-go-gique,%
d{\'e}-mis-sion,d{\'e}-na-zi-fier,den-tiste,d{\'e}-piau-ter,%
d{\'e}-pouiller,der-ma-to-lo-gique,d{\'e}sa-mi-don-ner,d{\'e}sen-flure,%
d{\'e}shy-dro-g{\'e}-ner,d{\'e}so-rien-ter,d{\'e}-sto-ckage,d{\'e}-to-na-tion,%
d{\'e}-ver-dis-sage,dharma,di-amine,di-duc-tion,%
di-gon,dio-ny-sien,dis-conve-nance,dis-pu-taille-rie,%
dis-tri-buable,do-ci-mo-lo-gie,do-mes-ti-quer,do-ter,%
dra-gon-net,dr{\^o}-le-ment,du-per,dys-en-do-cri-nie,%
{\'e}bou-rif-fer,{\'e}charde,{\'e}clanche,{\'e}cra-bouille-ment,%
{\'e}dit,ef-fri-te-ment,ei-der,{\'e}lec-tro-ma-gn{\'e}-tique,%
{\'e}lu-ci-da-tion,em-bot-te-ler,{\'e}miet-te-ment,em-par-rer,%
em-prunt,en-chaus-ser,en-dia-bler,en-flam-mer,%
en-har-mo-nie,en-r{\'e}-gi-men-ter,en-t{\'e}-rique,en-tre-lacs,%
en-voyeur,{\'e}piage,{\'e}pi-phy-tie,{\'e}pui-se-ment,%
{\'e}reint{\'e},es-ca-drille,es-pion,es-th{\'e}-tisme,%
{\'e}ta-tisme,{\'e}tole,eu-pep-tique,{\'e}ven-tua-lit{\'e},%
ex-ci-ser,exi-gi-bi-lit{\'e},ex-pli-ca-tion,ex-tir-pa-tion,%
fac-teur,fal-si-fi-ca-teur,fa-rouche,faux,%
fen-deur,f{\'e}-rule,fi-ce-ler,fi-li-grane,%
fixe,fl{\'e}-chis-seur,fluc-tuant,fon-ci{\'e}-re-ment,%
for-lon-ger,fouilleur,frac-tion-niste,fre-don-ner,%
frire,fruit,fu-rioso,ga{\"\i}a-col,%
ga-lure,gare,gaur,ge-n{\'e}pi,%
g{\'e}o-phage,gi-boyeux,glai-seux,glu-co-li-pide,%
go{\"\i},gou-g{\`e}re,graillon,gra-ti-ner,%
gre-nouille,gri-ser,gu{\`e}de,gui-per,%
hadji,ha-pax,h{\^a}-te-reau,h{\'e}-lio-chro-mie,%
hen-d{\'e}-ca-syl-labe,h{\'e}-ron,hi{\'e}-rar-chi-que-ment,ho,%
ho-no-ra-bi-lit{\'e},hou-leux,hu-mus,hy-dro-pneu-ma-tique,%
hyp-na-go-gique,icaque,ig-ni-vome,imit{\'e},%
im-pala,im-plan-ter,im-pu-bliable,in-avouable,%
in-com-mu-ni-ca-bi-lit{\'e},in-croyable,in-dexer,in-du-bi-ta-ble-ment,%
in-ex-p{\'e}-ri-ment{\'e},in-flexi-bi-lit{\'e},in-hu-mer,in-quar-ta-tion,%
ins-pec-teur,in-t{\`e}gre,in-ter-fo-liage,in-tu-ba-tion,%
in-ter-stel-laire,in-vrai-sem-blance,ir-r{\'e}-pa-ra-ble-ment,iso-phase,%
ja{\"\i}n,jau-n{\^a}tre,jo-liesse,ju-gu-ler,%
ka-l{\'e}i-do-scope,ki-lo-m{\'e}-trer,la-bium,lai-neuse,%
lan-ceur,lar-gage,la-ve-rie,l{\'e}-ni-tif,%
leu-cose,li-brai-rie,li-mette,li-po-thy-mie,%
lit-t{\'e}-ral,lo-go-ma-chique,lou-cheur,lu-mi-neu-se-ment,%
lyn-cheur,ma-cro-phage,ma-gni-fique,ma-la-bar,%
mal-ter,man-gous-tan,map-pe-monde,mar-gis,%
mar-que-te-rie,mas-ti-ca-toire,ma-trone,m{\'e}-daille,%
me{\"\i}ji,men-d{\'e}-l{\'e}-vium,mer-cure,me-sure,%
m{\'e}-tis-sage,mi-cro-m{\'e}-trique,mil-lier,mi-nu-tieu-se-ment,%
mi-traillade,moi-nillon,mon-der,mo-no-po-liste,%
mor-dache,mo-tion-ner,mous-que-te-rie,mul-ti-carte,%
mus-cat,myo-pie,na-po-l{\'e}o-nien,na-va-rin,%
neige,neu-ro-psy-chiatre,ni{\^o}le,no-made,%
noue,nu-m{\'e}-ra-tion,obli-t{\'e}-rer,oc{\'e}a-no-graphe,%
¼uvre,oli-go-pole,on-gl{\'e}e,opi-nion,%
or-chi-da-c{\'e}es,ori-peau,os-cule,ouille,%
ovo-g{\'e}-n{\`e}se,pa-geo-ter,pa-l{\'e}o-his-to-lo-gie,pa-lus,%
pa-no-ra-mi-quer,para,pa-ra-si-ti-cide,pa-ri-sette,%
par-ti-ci-pant,pas-teu-ri-ser,pa-toi-ser,paye-ment,%
pei-gnage,pe-nalty,pen-tho-tal,p{\'e}-r{\'e}qua-tion,%
per-lim-pin-pin,per-son-na-lit{\'e},p{\'e}-toire,phar-ma-ceu-tique,%
pholx,pho-to-ma-ton,phy-toph-thora,pi{\'e}-ti-ner,%
pin-ce-lier,pi-so-lithe,plaie,plas-ti-que-ment,%
pliage,plu-t{\^o}t,poin-teur,po-li-ti-quer,%
po-ly-style,pontet,po-s{\'e}-ment,po-ti-quet,%
pour-voi,pr{\'e}-cis,pr{\'e}-ju-di-ciable,pr{\'e}-s{\'e}ance,%
pr{\'e}-va-lence,pri-vi-l{\'e}-gier,pro-fi-leur,pro-na-teur,%
pros-pec-tif,pro-vi-dence,psy-cho-lin-guis-tique,pu{\'e}-ri-lit{\'e},%
pur-pura,py-tha-go-risme,quart-zite,quin-tes-sen-ci{\'e},%
rac-cour-cir,ra-dio-co-balt,rage,ram{\'e},%
ra-pi{\'e}-cage,r{\^a}-te-lier,rayon-nant,re-bours,%
re-chi-gner,re-cor-dage,r{\'e}-cu-sable,r{\'e}-{\'e}va-lua-tion,%
re-fu-ser,r{\'e}-gu-la-rit{\'e},re-laxe,re-met-tant,%
re-nar-di{\`e}re,ren-ta-mer,r{\'e}-p{\'e}-ti-tion,repu,%
r{\'e}-son-nance,re-sur-gir,r{\'e}-trac-tile,r{\'e}-veil,%
re-vo-ter,rhu-me-rie,ri-mer,robre,%
ron-chon,ro-tengle,rous-p{\'e}-ter,rui-ni-forme,%
sa-brage,sa-gesse,sa-li-nit{\'e},sand-jak,%
sar-clette,sau-cisse,Saxon,schi-zo-go-nie,%
sco-las-ti-cat,s{\'e}-che-resse,sei-gneu-riage,se-mou-le-rie,%
sep-tem-vir,ser-pent,sexto,si-gil-lo-gra-phie,%
si-mu-lie,ski,s¼ur,so-ma-to-trope,%
sot,soulte,spal-ter,sph{\'e}-rique,%
spo-ro-gone,star-let,st{\'e}-r{\'e}o-duc,sto-ma-chique,%
stro-phan-tine,sub-jec-ti-ve-ment,suc-ci-nique,sul-fa-ter,%
su-pin,sur-d{\'e}-ve-lopp{\'e},sur-mon-ter,sur-vol-ter,%
sym-pho-nie,sy-phi-lis,tact,tam-pico,%
ta-quon,t{\^a}-ter,tech-ni-que-ment,t{\'e}-l{\'e}os-t{\'e}ens,%
ten-dan-ciel,ter-mi-nal,t{\'e}-te-relle,th{\'e}o-lo-gal,%
thalspi,tilleul,to-co-ph{\'e}-rol,ton-nerre,%
tor-tille,tour-men-ter,trac-ter,trans-cas-pien,%
trans-plant,tr{\'e}-fi-lage,tr{\'e}-vi-rer,tri-fo-rium,%
tri-plure,tron-ca-ture,truite,tu-mul-tueu-se-ment,%
tuyau-ter,ul-tra-vi-rus,ura-no-gra-phie,uti-li-taire,%
va-lable,va-quer,ve-dette,v{\'e}-n{\'e}-rer,%
ver-get{\'e},ver-seuse,vian-der,vi-gnoble,%
vi-reux,vi-treux,vo-lage,vo-ter,%
we-ber,yt-trique,zo-nure,%
%% liste compl{\'e}mentaire %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
cor-rec-te-ment,% 1ct retir{\'e}
abhor-rer,adh{\'e}-sion,r{\'e}dhi-bi-toire,% modifs frhyp V2.4
d{\'e}s-¼u-vre-ment,% have a long name with ¼V2.5
ma\^% add a 7 bits word with accent \^ on \i
\i-tris\'% which is a good idea
e,% of Michel Bovani.
}% don't run this file alone! Go through gencoup.tex
%
\CheckSevenBits/{\`A}/% check it, will stop here if 7-bits.
{\STOP un retour charriot permet de continuer...}
%
\endinput
%%% Local Variables:
%%% mode: plain-tex
%%% TeX-master: t
%%% End:
% patterns, codage iso-latin-9 !
'4
'4
'4
'4
'4
'4
'4
'a2g3nat
'a4
'ab3ra
'ae3s4ch
'amino1a2c
'ana3s4tr
'anti12
'anti1a2
'anti1e2
'anti1s2
'anti2enne
'apo2s3ta
'ar3gent.
'ar3pent.
'as2ta
'e4
'en1a2
'en1o2
'eu2r1a2
'i2g3n
'i2g3ni
'i4
'in12
'in1a2
'in1e2
'in1i2
'in1o2
'in1s2tab
'in1u2
'in23lucta
'in23narra
'in2a3nit
'in2augur
'in2effab
'in2ept
'in2er
'in2exora
'in2i3miti
'in2i3q
'in2i3t
'in2o3cul
'in2ond
'in2u3l
'in2uit
'inte4r3
'inter2
'intera2
'intere2
'interi2
'intero2
'inters2
'interu2
'o4
'on3guent.
'oua1ou
'ovi1s2c
'u4
'y4
.4
.mi3nent.
.4
.4
.4
.4
.4
.4
.a2g3nat
.a4
.ab3ra
.ae3s4ch
.amino1a2c
.ana3s4tr
.anti12
.anti1a2
.anti1e2
.anti1s2
.anti2enne
.apo2s3ta
.ar3dent.
.ar3gent.
.ar3pent.
.as2ta
.bai2se3main
.bi1a2c
.bi1a2t
.bi1au
.bi1u2
.bi2s1a2
.bio1a2
.ch4
.ch2vre3feuille
.ci2s1alp
.co1o2
.co2o3lie
.com3ment.
.con4
.cons4
.contre1s2c
.contre3matre
.cul4
.d1a2
.d1io
.d1o2
.d2s
.d2s12
.d2s1^^bd0
.d2s1i2
.d2s1u2n
.d3s23gr
.d3s2a3cr
.d3s2a3tell
.d3s2astr
.d3s2c
.d3s2ensib
.d3s2ert
.d3s2exu
.d3s2i3d
.d3s2i3gn
.d3s2i3li
.d3s2i3nen
.d3s2i3r
.d3s2invo
.d3s2ist
.d3s2o3d
.d3s2o3l
.d3s2o3pil
.d3s2orm
.d3s2orp
.d3s2oufr
.d3s2p
.d3s2t
.ds2a3m
.dacryo1a2
.di1a2c
.di1a2cid
.di1a2mi
.di1a2tom
.di1ald
.di1e2n
.di2s3h
.do3lent.
.dy2s1a2
.dy2s1i2
.dy2s1o2
.dy2s1u2
.dy2s3
.e4
.en1a2
.en1o2
.eu2r1a2
.gem2ment.
.i2g3n
.i2g3ni
.i4
.in12
.in1a2
.in1e2
.in1i2
.in1o2
.in1s2tab
.in1u2
.in23lucta
.in23narra
.in2a3nit
.in2augur
.in2effab
.in2ept
.in2er
.in2exora
.in2i3miti
.in2i3q
.in2i3t
.in2o3cul
.in2ond
.in2u3l
.in2uit
.inte4r3
.inter2
.intera2
.intere2
.interi2
.intero2
.inters2
.interu2
.kh4
.la3tent.
.m2g1oh
.m2s1es
.m2s1i
.m2s1u2s
.m2sa
.m3san
.mta1s2ta
.ma2c3k
.ma2g3nicide
.ma2g3nificat
.ma2g3num
.ma2l1a2dres
.ma2l1a2dro
.ma2l1a2v
.ma2l1ais
.ma2l1ap
.ma2l1en
.ma2l1int
.ma2l1o2d
.ma2l1oc
.ma2r1x
.macro1s2c
.milli1am
.mono12d
.mono12
.mono1a2
.mono1e2
.mono1i2
.mono1o2
.mono1s2
.mono1u2
.no2n1obs
.o4
.on3guent.
.oua1ou
.ovi1s2c
.pri1os
.pri1s2
.pri1u2
.pri2s3s
.pri2s3ta
.pa2n1a2f
.pa2n1a2m
.pa2n1a2ra
.pa2n1is
.pa2n1o2ph
.pa2n1opt