bknr-cvs

bknr-cvs@common-lisp.net

1964 discussions

[bknr-cvs] edi changed trunk/thirdparty/drakma/
by BKNR Commits 28 Sep '10

28 Sep '10

Revision: 4614 Author: edi URL: http://bknr.net/trac/changeset/4614 Don't funcall keywords U trunk/thirdparty/drakma/CHANGELOG.txt U trunk/thirdparty/drakma/request.lisp Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2010-09-17 14:31:09 UTC (rev 4613) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2010-09-28 16:16:38 UTC (rev 4614) @@ -1,3 +1,5 @@ +Don't funcall symbols that aren't FBOUNDP (Faré Rideau) + Version 1.2.3 2010-08-05 Fix UPDATE-COOKIES (Vsevolod Dyomkin) Modified: trunk/thirdparty/drakma/request.lisp =================================================================== --- trunk/thirdparty/drakma/request.lisp 2010-09-17 14:31:09 UTC (rev 4613) +++ trunk/thirdparty/drakma/request.lisp 2010-09-28 16:16:38 UTC (rev 4614) @@ -570,7 +570,9 @@ (write-header "Connection" "close")) (loop for (name . value) in additional-headers do (write-header name "~A" - (cond ((or (functionp value) (symbolp value)) + (cond ((or (functionp value) + (and (symbolp value) + (fboundp value))) (funcall value)) (t value)))) (when content

1 0

[bknr-cvs] manuel changed trunk/thirdparty/cl-paypal/
by BKNR Commits 17 Sep '10

17 Sep '10

Revision: 4613 Author: manuel URL: http://bknr.net/trac/changeset/4613 updated cl-paypal U trunk/thirdparty/cl-paypal/.git/index U trunk/thirdparty/cl-paypal/.git/logs/HEAD U trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop U trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop A trunk/thirdparty/cl-paypal/.git/objects/13/ A trunk/thirdparty/cl-paypal/.git/objects/13/0c568d3db006611c3f633f04b6b51ef959b290 A trunk/thirdparty/cl-paypal/.git/objects/3a/ A trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f A trunk/thirdparty/cl-paypal/.git/objects/b2/ A trunk/thirdparty/cl-paypal/.git/objects/b2/c22f4f042e5f95dc9d3ff9c4da5e36c966c988 U trunk/thirdparty/cl-paypal/.git/refs/heads/develop U trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop U trunk/thirdparty/cl-paypal/cl-paypal.lisp Modified: trunk/thirdparty/cl-paypal/.git/index =================================================================== (Binary files differ) Modified: trunk/thirdparty/cl-paypal/.git/logs/HEAD =================================================================== --- trunk/thirdparty/cl-paypal/.git/logs/HEAD 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/.git/logs/HEAD 2010-09-17 14:31:09 UTC (rev 4613) @@ -6,3 +6,4 @@ 09d8a07cd56070f899e46edf79e714981f527ce2 f01f64981f2de889caf5127e8f21166c4c1ef164 Manuel Odendahl <wesen(a)ruinwesen.com> 1284654667 +0200 commit: Added helper functions to handle running transactions f01f64981f2de889caf5127e8f21166c4c1ef164 7f1d6daa2bddd891225cca488fd1aff6737681cf Manuel Odendahl <wesen(a)ruinwesen.com> 1284667389 +0200 commit: Adapt to VERSION 63.0 7f1d6daa2bddd891225cca488fd1aff6737681cf 6bddc89a7a42e3a67a9bb915f89d3225c588a381 Manuel Odendahl <wesen(a)ruinwesen.com> 1284667395 +0200 commit: Run test server on localhost +6bddc89a7a42e3a67a9bb915f89d3225c588a381 130c568d3db006611c3f633f04b6b51ef959b290 Manuel Odendahl <wesen(a)ruinwesen.com> 1284729628 +0200 commit: Parse answer of 63.0 requests Modified: trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop =================================================================== --- trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop 2010-09-17 14:31:09 UTC (rev 4613) @@ -5,3 +5,4 @@ 09d8a07cd56070f899e46edf79e714981f527ce2 f01f64981f2de889caf5127e8f21166c4c1ef164 Manuel Odendahl <wesen(a)ruinwesen.com> 1284654667 +0200 commit: Added helper functions to handle running transactions f01f64981f2de889caf5127e8f21166c4c1ef164 7f1d6daa2bddd891225cca488fd1aff6737681cf Manuel Odendahl <wesen(a)ruinwesen.com> 1284667389 +0200 commit: Adapt to VERSION 63.0 7f1d6daa2bddd891225cca488fd1aff6737681cf 6bddc89a7a42e3a67a9bb915f89d3225c588a381 Manuel Odendahl <wesen(a)ruinwesen.com> 1284667395 +0200 commit: Run test server on localhost +6bddc89a7a42e3a67a9bb915f89d3225c588a381 130c568d3db006611c3f633f04b6b51ef959b290 Manuel Odendahl <wesen(a)ruinwesen.com> 1284729628 +0200 commit: Parse answer of 63.0 requests Modified: trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop =================================================================== --- trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop 2010-09-17 14:31:09 UTC (rev 4613) @@ -3,3 +3,4 @@ 98fc0087b8ef92c9fc00f76c53e72622b7724b5e 09d8a07cd56070f899e46edf79e714981f527ce2 Manuel Odendahl <wesen(a)ruinwesen.com> 1284540047 +0200 update by push 09d8a07cd56070f899e46edf79e714981f527ce2 f01f64981f2de889caf5127e8f21166c4c1ef164 Manuel Odendahl <wesen(a)ruinwesen.com> 1284654694 +0200 update by push f01f64981f2de889caf5127e8f21166c4c1ef164 6bddc89a7a42e3a67a9bb915f89d3225c588a381 Manuel Odendahl <wesen(a)ruinwesen.com> 1284667406 +0200 update by push +6bddc89a7a42e3a67a9bb915f89d3225c588a381 130c568d3db006611c3f633f04b6b51ef959b290 Manuel Odendahl <wesen(a)ruinwesen.com> 1284729642 +0200 update by push Added: trunk/thirdparty/cl-paypal/.git/objects/13/0c568d3db006611c3f633f04b6b51ef959b290 =================================================================== (Binary files differ) Property changes on: trunk/thirdparty/cl-paypal/.git/objects/13/0c568d3db006611c3f633f04b6b51ef959b290 ___________________________________________________________________ Added: svn:mime-type + application/octet-stream Added: trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f =================================================================== --- trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f (rev 0) +++ trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f 2010-09-17 14:31:09 UTC (rev 4613) @@ -0,0 +1,20 @@ +xíZ[oÜÆî«ô+L#sUSÝÔh6p!R\Jv¢hYrVKK²äÐ^ôÛû3¹Üµl÷ÑÛËËËËwÎõ¢šâûçß=ýCI-Óky¥Ä<-p}WËb¶¿gj*I«2Ëu^ÂŒJTÓTùk¶/D<\ÝšÿvªÕnyHŒj¥u|4æUºkÅ</s-+17ª«²UI«ŒÄ +¿tôf¶mÞnyc^Ë4UmÃxÖLœÂyùAyÃ7rŽjï 'ö5oT]5ZÄ\/2)âÞGØ©kæØO\(,kXA'*¯ôêP<;fnnÇËªYK-]Xíçâþ2 +:ÚCn±¥ndÙÊ)Ìî(Žy³Vg,sÏ{uéJ©ŽÊToQo}Zò[!mz?Ð^àüÇâf§+·âÝÅ¯BÄ+²ÌÄ²*ê<ŒÕæ +EKÓª=âBé®)[¡W +ŒZ!ñGÔDrSW²]x-¯UB¥ â2©egËU©;ø¹W§·`ªEtù-x?!'±.BÐ0YäÐ>ö:¹0G<uj¶ÉñEÍ¬y¯!âÙl/n^öÛ²,ö÷LTôJ5êJÝÂôu!S%¢óþvöúíÅÙßß]Ÿ}ü>Úà!¢z¡W¯y³»ÝxÝ:¯ðÞaÈp84TÓ,Ê2ÑÝn+¢ÿüú>>:üiÿë8ùþßýqsCaRÅùR0{x>üP"ÕŒOðÂKËF-{eÄñLÌ¯ÕÝMÕdÞœ!'\4S·ì``ñ¹:=u5¢}ÝšyÕµÆ*"ŸRã³×n~oÏe>"¯}b³GàÊhbkYâ-÷÷ßF`³×û+ÁX©UWŠ+ÄeUéy×ÉrËvÞéeòW£ L¿°ZÊŽaì±º*í +n9·môc¢ÉÜ&ô ÌÙœ}i=Ø{š®Ž€9bwLevdY;Sm +ÁªÂžPlXÁVwÁŠ3|Ô4€Œ¬kP;É ÕÃÌæD~Ü{lÇ +aCÈ`ÍG2]òmÊ¥àèãçd³à¢ªjF¡X(ªT'ûñšÕozHQmTª`ó¡\bgÓvW(¶/B}A"W8µ@ïÓ"8TÈ +4 IçÂx®ªêšV^W¬ä9·zâõïçâäü*ÝogoÿöæJ$íÁ +ÑÔìZõXÈÌ4² å ¹Hv·Fò¢6TÛjjÛ°baàadžjÊ5s¶]è:Ø·uäï¬×ki:>·«CÛÉ:O$œuÉSÃÏÜnn^WÞ¹ÐrØ&ZjºP8Í"k°F%îŒ³Œ~?»ž|õæu$¢ç>:ŸÙ»Ë³H8£ÀÍá1<ÿÇiÏ\Mð</_œ|}òöÝÅYÏ¹Í¯J4ök*c*÷ÉºÇ>5M56e&0ÈpÆ,îÄ7Ò,kv¹×\¿ÅíÝzQIþÝDþ'+»!Øt®µÕü3ôÜ`kXý_8¡ÎåeÚ7QVKtÀe÷¥ïÙñ±Jc[éøÕpè¹TøçàaNžiÇÝK Æhxpo,§t ¶±~ÂM».;ð0¡¢FÎuLÞ4ùÍ<=þîé_@Jtm#*Þ9 œ`&·yÈŽä-á ÃÎÌçb£ð»^ðÉþ?·oNßvUuE)áœÎâ43]¥šT(xŸAÝ²)îLmQ&²[/Ð²¢vôÊŒ]¡<è[àfÇyMÅA~šòéŽ-Ñše^TI»ZT]#VJÖG|ñ<€!òJµh¹§G®oÌÌUÃCtÁôa× -swÞ:`ã +D³î`!Šýsvä*5ÐÄÏãTÑ¬aâ@ØÁ0 +œüUYá®³ñëŽÜ°ÍŠ÷g3ªDç +)¿:ì +Ö¬²E}èBÁÌ4îmŽiÚ) +]]+k]u¥i×4šï(áUÐbg7hêûÃ¬ôÝüèDkµ®5EÓ>áó¡nÑvsÕ&=µayKÇ²YÐáÅl?°z§?¢)çN£ÇŽi}!]ËÛd*]îÅ€O0û'9Æ?©éÄ¬T·8ã |ZÇeS»¶LµF6ÀxÌïÙ:Lly^Kè}ŒÎžêG'ì°€+`M+ ÈwDñi+óšçLkž¯øP<?X}«ÈöŒB¯0LŽšÎÏÄXäŒe\à8ÜÈbsÆbid»AòWžª ë}Ûba2;BÁ6ÃŽ\ÒäÐäzuÞ÷+À>¥1[2e8íÊDRaKþM:-IÞbòEJ6&é#þQüÀ²KíY¯78l°µÇcÖu8æ<Ä¹iq®;ù{°BÉBwCMªªŠGL.Æáš<œo×ÝÉNa&-ŸQ-ËJ;Dc@mšoQíg*¢å#Ò xv4âè¯lžà7Ç%NÝb6oÛg&éuÕiuàT#{úßŒæ®ZÃ£{³,·K$<YÆ»Ã)ZªÁ²þíß±sôëÓ²Ô/'6|è³vzkæiÜÂ'ê~9â@nÜ c,éèB +¢#Kzd`ç(Ö4á~ÊÙä3ýLõþøJÁ#úIà]1ï} æœ¡Xa;;Í lÜQÊ-ÍÄ mžcM¹Fóc"@×$¢ûÇÏ~,ŸüÊWn4.>3û³[>,Žæ±ÊS$÷Û Í»÷fCôŸßZøV£S+Æ€(þî\3°Fx³Ê²á]ÊB[¡ÑÒÂ$µïûrDÃŽ+y¢24€|š·TLÄž5q5ðMPíüÉû'7jÑŠÍOé:{ñ~,àÅýÉAžÃØÒ.ìm<>3?X²zF6ÝNa€&c5pœ¬,4Á¿èåF*-ó¢¬ý<Bºö4«6Øíy<fîž8sSûïŒÀRc`òÒÔï-ÓM/F³5ÓÛyš¥ +¡É%Ç¿V~9Øá?8ôžC×e*t8¯Úç,!ü`æïÓj¶ç&Óm&àÃŒEC×s§°ý~ +è(©|¡ËÔdÂD8ëÙYÞdš¿#ÝŠè¹I>PwpóYì¬zPtpkN1Ú.m?Þ È)NùJšJG#ŸŠò|Gêoëî- +¬ÙŸ8H¹D' §É·òÅX£CÄÐ!ÕhüO}">Äÿ(3Ùdyg +ÐGý1°xý¶éÃþ@ÁÊ¯ÃöW Â.ÕÆ=ÌW±GI1¡¹Ç÷&0¯1§8Næ¶ÖÛ¯a=í°Øñ5¹)§Ãéw(ÈáSÔkŒþeæDu \ No newline at end of file Added: trunk/thirdparty/cl-paypal/.git/objects/b2/c22f4f042e5f95dc9d3ff9c4da5e36c966c988 =================================================================== (Binary files differ) Property changes on: trunk/thirdparty/cl-paypal/.git/objects/b2/c22f4f042e5f95dc9d3ff9c4da5e36c966c988 ___________________________________________________________________ Added: svn:mime-type + application/octet-stream Modified: trunk/thirdparty/cl-paypal/.git/refs/heads/develop =================================================================== --- trunk/thirdparty/cl-paypal/.git/refs/heads/develop 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/.git/refs/heads/develop 2010-09-17 14:31:09 UTC (rev 4613) @@ -1 +1 @@ -6bddc89a7a42e3a67a9bb915f89d3225c588a381 +130c568d3db006611c3f633f04b6b51ef959b290 Modified: trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop =================================================================== --- trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop 2010-09-17 14:31:09 UTC (rev 4613) @@ -1 +1 @@ -6bddc89a7a42e3a67a9bb915f89d3225c588a381 +130c568d3db006611c3f633f04b6b51ef959b290 Modified: trunk/thirdparty/cl-paypal/cl-paypal.lisp =================================================================== --- trunk/thirdparty/cl-paypal/cl-paypal.lisp 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/cl-paypal.lisp 2010-09-17 14:31:09 UTC (rev 4613) @@ -28,6 +28,8 @@ (destructuring-bind (parameter-string value) (cl-ppcre:split "=" entry :limit 2) (setf parameter-string (cl-ppcre:regex-replace "PAYMENTREQUEST_0_" parameter-string "")) + (setf parameter-string + (cl-ppcre:regex-replace "PAYMENTINFO_0_" parameter-string "")) (multiple-value-bind (match registers) (cl-ppcre:scan-to-strings "^L_(.*?)([0-9]+)$" parameter-string) (if match (let* ((parameter (intern (aref registers 0) :keyword)) @@ -156,9 +158,10 @@ (token (getf res :token))) (register-transaction token amt currencycode ip) (values - (format nil "https://~A/webscr?cmd=_express-checkout&token=~A" + (format nil "https://~A/webscr?cmd=_express-checkout&token=~A&useraction=~A" hostname - (hunchentoot:url-encode token)) + (hunchentoot:url-encode token) + useraction) res))) (defun get-express-checkout-info (token)

1 0

[bknr-cvs] manuel changed trunk/thirdparty/cl-paypal/
by BKNR Commits 16 Sep '10

16 Sep '10

Revision: 4612 Author: manuel URL: http://bknr.net/trac/changeset/4612 update cl-paypal U trunk/thirdparty/cl-paypal/.git/FETCH_HEAD U trunk/thirdparty/cl-paypal/.git/config U trunk/thirdparty/cl-paypal/.git/index U trunk/thirdparty/cl-paypal/.git/logs/HEAD U trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop U trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop A trunk/thirdparty/cl-paypal/.git/objects/01/ A trunk/thirdparty/cl-paypal/.git/objects/01/4ae43b19ca8c12dfe54ede2e82ea17bd2937e9 A trunk/thirdparty/cl-paypal/.git/objects/04/ A trunk/thirdparty/cl-paypal/.git/objects/04/55a5a85b13284c3bb0d6c7576183e0f2f17951 A trunk/thirdparty/cl-paypal/.git/objects/09/ A trunk/thirdparty/cl-paypal/.git/objects/09/d8a07cd56070f899e46edf79e714981f527ce2 A trunk/thirdparty/cl-paypal/.git/objects/24/ A trunk/thirdparty/cl-paypal/.git/objects/24/0ccede6f1b2b422e970bd2c7ed1792aff757b3 A trunk/thirdparty/cl-paypal/.git/objects/25/ A trunk/thirdparty/cl-paypal/.git/objects/25/87865953d153953e5bf601b044cc97bdcf811e A trunk/thirdparty/cl-paypal/.git/objects/44/ A trunk/thirdparty/cl-paypal/.git/objects/44/78f716d94f5dc59d04f9f62ec3b2aeb1169b25 A trunk/thirdparty/cl-paypal/.git/objects/4e/ A trunk/thirdparty/cl-paypal/.git/objects/4e/0b6c60c05ab89c7001f9acc404819f413cb09f A trunk/thirdparty/cl-paypal/.git/objects/51/ A trunk/thirdparty/cl-paypal/.git/objects/51/defe1b2ebaee0e0710017b19c6818e692545f4 A trunk/thirdparty/cl-paypal/.git/objects/55/ A trunk/thirdparty/cl-paypal/.git/objects/55/dd658a3827288259e0a967f217cc3b67065262 A trunk/thirdparty/cl-paypal/.git/objects/5f/ A trunk/thirdparty/cl-paypal/.git/objects/5f/37e58c476ba929e50933e55a333141e1cd114d A trunk/thirdparty/cl-paypal/.git/objects/67/ A trunk/thirdparty/cl-paypal/.git/objects/67/af5a27e15c035a74f26b157657fdaa7a4d65c2 A trunk/thirdparty/cl-paypal/.git/objects/6b/ A trunk/thirdparty/cl-paypal/.git/objects/6b/ddc89a7a42e3a67a9bb915f89d3225c588a381 A trunk/thirdparty/cl-paypal/.git/objects/7f/ A trunk/thirdparty/cl-paypal/.git/objects/7f/1d6daa2bddd891225cca488fd1aff6737681cf A trunk/thirdparty/cl-paypal/.git/objects/7f/9652310daff4e11955d2d8f17281684773418d A trunk/thirdparty/cl-paypal/.git/objects/90/ A trunk/thirdparty/cl-paypal/.git/objects/90/ec22bee124705a9164f46a994cad1890bd92b5 A trunk/thirdparty/cl-paypal/.git/objects/98/ A trunk/thirdparty/cl-paypal/.git/objects/98/fc0087b8ef92c9fc00f76c53e72622b7724b5e A trunk/thirdparty/cl-paypal/.git/objects/9b/ A trunk/thirdparty/cl-paypal/.git/objects/9b/979913e521737c20de62b018d5cf27e3669677 A trunk/thirdparty/cl-paypal/.git/objects/c2/ A trunk/thirdparty/cl-paypal/.git/objects/c2/0018201a18656d158045890eddb52837c2f157 A trunk/thirdparty/cl-paypal/.git/objects/c4/ A trunk/thirdparty/cl-paypal/.git/objects/c4/26e95985485909a1167aaad04f07640fc10840 A trunk/thirdparty/cl-paypal/.git/objects/dc/ A trunk/thirdparty/cl-paypal/.git/objects/dc/72325bd48ff5dda592ab88b43641557222ab0a A trunk/thirdparty/cl-paypal/.git/objects/e2/ A trunk/thirdparty/cl-paypal/.git/objects/e2/ab3169d4a137f70c34779a764e523618120b43 A trunk/thirdparty/cl-paypal/.git/objects/ed/ A trunk/thirdparty/cl-paypal/.git/objects/ed/44b9694f69c3f4bbde5d6d5a5bd4b16ddc9de4 A trunk/thirdparty/cl-paypal/.git/objects/f0/ A trunk/thirdparty/cl-paypal/.git/objects/f0/1f64981f2de889caf5127e8f21166c4c1ef164 U trunk/thirdparty/cl-paypal/.git/refs/heads/develop U trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop A trunk/thirdparty/cl-paypal/.gitignore U trunk/thirdparty/cl-paypal/cl-paypal-test.lisp U trunk/thirdparty/cl-paypal/cl-paypal.lisp U trunk/thirdparty/cl-paypal/config.lisp U trunk/thirdparty/cl-paypal/package.lisp Change set too large, please see URL above

1 0

[bknr-cvs] manuel changed trunk/thirdparty/uffi/
by BKNR Commits 14 Sep '10

14 Sep '10

Revision: 4611 Author: manuel URL: http://bknr.net/trac/changeset/4611 add new uffi from git A trunk/thirdparty/uffi/ A trunk/thirdparty/uffi/.git/ A trunk/thirdparty/uffi/.git/HEAD A trunk/thirdparty/uffi/.git/config A trunk/thirdparty/uffi/.git/description A trunk/thirdparty/uffi/.git/hooks/ A trunk/thirdparty/uffi/.git/hooks/applypatch-msg.sample A trunk/thirdparty/uffi/.git/hooks/commit-msg.sample A trunk/thirdparty/uffi/.git/hooks/post-commit.sample A trunk/thirdparty/uffi/.git/hooks/post-receive.sample A trunk/thirdparty/uffi/.git/hooks/post-update.sample A trunk/thirdparty/uffi/.git/hooks/pre-applypatch.sample A trunk/thirdparty/uffi/.git/hooks/pre-commit.sample A trunk/thirdparty/uffi/.git/hooks/pre-rebase.sample A trunk/thirdparty/uffi/.git/hooks/prepare-commit-msg.sample A trunk/thirdparty/uffi/.git/hooks/update.sample A trunk/thirdparty/uffi/.git/index A trunk/thirdparty/uffi/.git/info/ A trunk/thirdparty/uffi/.git/info/exclude A trunk/thirdparty/uffi/.git/logs/ A trunk/thirdparty/uffi/.git/logs/HEAD A trunk/thirdparty/uffi/.git/logs/refs/ A trunk/thirdparty/uffi/.git/logs/refs/heads/ A trunk/thirdparty/uffi/.git/logs/refs/heads/develop A trunk/thirdparty/uffi/.git/logs/refs/heads/master A trunk/thirdparty/uffi/.git/objects/ A trunk/thirdparty/uffi/.git/objects/info/ A trunk/thirdparty/uffi/.git/objects/pack/ A trunk/thirdparty/uffi/.git/objects/pack/pack-806cdea90524e457d9cba16b78457b9b8d4c7e3f.idx A trunk/thirdparty/uffi/.git/objects/pack/pack-806cdea90524e457d9cba16b78457b9b8d4c7e3f.pack A trunk/thirdparty/uffi/.git/packed-refs A trunk/thirdparty/uffi/.git/refs/ A trunk/thirdparty/uffi/.git/refs/heads/ A trunk/thirdparty/uffi/.git/refs/heads/develop A trunk/thirdparty/uffi/.git/refs/heads/master A trunk/thirdparty/uffi/.git/refs/remotes/ A trunk/thirdparty/uffi/.git/refs/remotes/b9/ A trunk/thirdparty/uffi/.git/refs/remotes/b9/HEAD A trunk/thirdparty/uffi/.git/refs/tags/ A trunk/thirdparty/uffi/.gitignore A trunk/thirdparty/uffi/AUTHORS A trunk/thirdparty/uffi/ChangeLog A trunk/thirdparty/uffi/INSTALL A trunk/thirdparty/uffi/LICENSE A trunk/thirdparty/uffi/Makefile A trunk/thirdparty/uffi/Makefile.common A trunk/thirdparty/uffi/NEWS A trunk/thirdparty/uffi/README A trunk/thirdparty/uffi/TODO A trunk/thirdparty/uffi/benchmarks/ A trunk/thirdparty/uffi/benchmarks/.gitignore A trunk/thirdparty/uffi/benchmarks/Makefile A trunk/thirdparty/uffi/benchmarks/allocation.lisp A trunk/thirdparty/uffi/debian/ A trunk/thirdparty/uffi/debian/.gitignore A trunk/thirdparty/uffi/debian/README.Debian A trunk/thirdparty/uffi/debian/changelog A trunk/thirdparty/uffi/debian/cl-uffi.doc-base A trunk/thirdparty/uffi/debian/compat A trunk/thirdparty/uffi/debian/control A trunk/thirdparty/uffi/debian/copyright A trunk/thirdparty/uffi/debian/cvsbp-prepare.sh A trunk/thirdparty/uffi/debian/docs A trunk/thirdparty/uffi/debian/make-upstream.sh A trunk/thirdparty/uffi/debian/rules A trunk/thirdparty/uffi/debian/source/ A trunk/thirdparty/uffi/debian/source/format A trunk/thirdparty/uffi/debian/upload.sh A trunk/thirdparty/uffi/debian/watch A trunk/thirdparty/uffi/doc/ A trunk/thirdparty/uffi/doc/.gitignore A trunk/thirdparty/uffi/doc/COPYING.GFDL A trunk/thirdparty/uffi/doc/Makefile A trunk/thirdparty/uffi/doc/appendix.xml A trunk/thirdparty/uffi/doc/bookinfo.xml A trunk/thirdparty/uffi/doc/catalog-darwin.xml A trunk/thirdparty/uffi/doc/catalog-debian.xml A trunk/thirdparty/uffi/doc/catalog-mandrake.xml A trunk/thirdparty/uffi/doc/catalog-suse.xml A trunk/thirdparty/uffi/doc/catalog-suse90.xml A trunk/thirdparty/uffi/doc/catalog-suse91.xml A trunk/thirdparty/uffi/doc/catalog-ubuntu.xml A trunk/thirdparty/uffi/doc/entities.inc A trunk/thirdparty/uffi/doc/fo.xsl A trunk/thirdparty/uffi/doc/glossary.xml A trunk/thirdparty/uffi/doc/html.tar.gz A trunk/thirdparty/uffi/doc/html.xsl A trunk/thirdparty/uffi/doc/html_chunk.xsl A trunk/thirdparty/uffi/doc/intro.xml A trunk/thirdparty/uffi/doc/notes.xml A trunk/thirdparty/uffi/doc/preface.xml A trunk/thirdparty/uffi/doc/ref_aggregate.xml A trunk/thirdparty/uffi/doc/ref_declare.xml A trunk/thirdparty/uffi/doc/ref_func_libr.xml A trunk/thirdparty/uffi/doc/ref_object.xml A trunk/thirdparty/uffi/doc/ref_primitive.xml A trunk/thirdparty/uffi/doc/ref_string.xml A trunk/thirdparty/uffi/doc/schemas.xml A trunk/thirdparty/uffi/doc/uffi.pdf A trunk/thirdparty/uffi/doc/uffi.xml A trunk/thirdparty/uffi/doc/xinclude.mod A trunk/thirdparty/uffi/examples/ A trunk/thirdparty/uffi/examples/.gitignore A trunk/thirdparty/uffi/examples/Makefile A trunk/thirdparty/uffi/examples/Makefile.msvc A trunk/thirdparty/uffi/examples/acl-compat-tester.lisp A trunk/thirdparty/uffi/examples/arrays.lisp A trunk/thirdparty/uffi/examples/atoifl.lisp A trunk/thirdparty/uffi/examples/c-test-fns.c A trunk/thirdparty/uffi/examples/c-test-fns.lisp A trunk/thirdparty/uffi/examples/compress.lisp A trunk/thirdparty/uffi/examples/file-socket.lisp A trunk/thirdparty/uffi/examples/getenv.lisp A trunk/thirdparty/uffi/examples/gethostname.lisp A trunk/thirdparty/uffi/examples/getshells.lisp A trunk/thirdparty/uffi/examples/gettime.lisp A trunk/thirdparty/uffi/examples/run-examples.lisp A trunk/thirdparty/uffi/examples/strtol.lisp A trunk/thirdparty/uffi/examples/test-examples.lisp A trunk/thirdparty/uffi/examples/union.lisp A trunk/thirdparty/uffi/src/ A trunk/thirdparty/uffi/src/.gitignore A trunk/thirdparty/uffi/src/Makefile A trunk/thirdparty/uffi/src/aggregates.lisp A trunk/thirdparty/uffi/src/corman/ A trunk/thirdparty/uffi/src/corman/corman-notes.txt A trunk/thirdparty/uffi/src/corman/getenv-ccl.lisp A trunk/thirdparty/uffi/src/functions.lisp A trunk/thirdparty/uffi/src/i18n.lisp A trunk/thirdparty/uffi/src/libraries.lisp A trunk/thirdparty/uffi/src/objects.lisp A trunk/thirdparty/uffi/src/os.lisp A trunk/thirdparty/uffi/src/package.lisp A trunk/thirdparty/uffi/src/primitives.lisp A trunk/thirdparty/uffi/src/readmacros-mcl.lisp A trunk/thirdparty/uffi/src/strings.lisp A trunk/thirdparty/uffi/tests/ A trunk/thirdparty/uffi/tests/.gitignore A trunk/thirdparty/uffi/tests/Makefile A trunk/thirdparty/uffi/tests/Makefile.msvc A trunk/thirdparty/uffi/tests/arrays.lisp A trunk/thirdparty/uffi/tests/atoifl.lisp A trunk/thirdparty/uffi/tests/casts.lisp A trunk/thirdparty/uffi/tests/compress.lisp A trunk/thirdparty/uffi/tests/foreign-loader.lisp A trunk/thirdparty/uffi/tests/foreign-var.lisp A trunk/thirdparty/uffi/tests/getenv.lisp A trunk/thirdparty/uffi/tests/gethostname.lisp A trunk/thirdparty/uffi/tests/i18n.lisp A trunk/thirdparty/uffi/tests/make.sh A trunk/thirdparty/uffi/tests/objects.lisp A trunk/thirdparty/uffi/tests/package.lisp A trunk/thirdparty/uffi/tests/rt.lisp A trunk/thirdparty/uffi/tests/strtol.lisp A trunk/thirdparty/uffi/tests/structs.lisp A trunk/thirdparty/uffi/tests/time.lisp A trunk/thirdparty/uffi/tests/uffi-c-test-lib.lisp A trunk/thirdparty/uffi/tests/uffi-c-test.c A trunk/thirdparty/uffi/tests/uffi-c-test.dylib A trunk/thirdparty/uffi/tests/union.lisp A trunk/thirdparty/uffi/tests/z.dylib A trunk/thirdparty/uffi/uffi-tests.asd A trunk/thirdparty/uffi/uffi.asd Change set too large, please see URL above

1 0

[bknr-cvs] manuel changed trunk/thirdparty/uffi-1.6.0/
by BKNR Commits 14 Sep '10

14 Sep '10

Revision: 4610 Author: manuel URL: http://bknr.net/trac/changeset/4610 delete uffi 1.6.0 D trunk/thirdparty/uffi-1.6.0/

1 0

[bknr-cvs] manuel changed trunk/thirdparty/cl-gd/gd-uffi.lisp
by BKNR Commits 13 Sep '10

13 Sep '10

Revision: 4609 Author: manuel URL: http://bknr.net/trac/changeset/4609 remove ugly hack U trunk/thirdparty/cl-gd/gd-uffi.lisp Modified: trunk/thirdparty/cl-gd/gd-uffi.lisp =================================================================== --- trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 20:58:03 UTC (rev 4608) +++ trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 21:06:22 UTC (rev 4609) @@ -74,12 +74,6 @@ (cx2 :int) (cy2 :int)) -;; XXX evil hack -#+(and :openmcl :64-bit-target) -(defmethod cffi::foreign-type-alignment ((type uffi-array-type)) - 4) - - (def-type pixels-array (* (* :unsigned-char))) (def-type pixels-row (* :unsigned-char)) (def-type t-pixels-array (* (* :int)))

1 0

[bknr-cvs] manuel changed trunk/thirdparty/cffi/
by BKNR Commits 13 Sep '10

13 Sep '10

Revision: 4608 Author: manuel URL: http://bknr.net/trac/changeset/4608 added cffi from git, including fixes for cl-gd A trunk/thirdparty/cffi/ A trunk/thirdparty/cffi/.git/ A trunk/thirdparty/cffi/.git/HEAD A trunk/thirdparty/cffi/.git/config A trunk/thirdparty/cffi/.git/description A trunk/thirdparty/cffi/.git/hooks/ A trunk/thirdparty/cffi/.git/hooks/applypatch-msg.sample A trunk/thirdparty/cffi/.git/hooks/commit-msg.sample A trunk/thirdparty/cffi/.git/hooks/post-commit.sample A trunk/thirdparty/cffi/.git/hooks/post-receive.sample A trunk/thirdparty/cffi/.git/hooks/post-update.sample A trunk/thirdparty/cffi/.git/hooks/pre-applypatch.sample A trunk/thirdparty/cffi/.git/hooks/pre-commit.sample A trunk/thirdparty/cffi/.git/hooks/pre-rebase.sample A trunk/thirdparty/cffi/.git/hooks/prepare-commit-msg.sample A trunk/thirdparty/cffi/.git/hooks/update.sample A trunk/thirdparty/cffi/.git/index A trunk/thirdparty/cffi/.git/info/ A trunk/thirdparty/cffi/.git/info/exclude A trunk/thirdparty/cffi/.git/logs/ A trunk/thirdparty/cffi/.git/logs/HEAD A trunk/thirdparty/cffi/.git/logs/refs/ A trunk/thirdparty/cffi/.git/logs/refs/heads/ A trunk/thirdparty/cffi/.git/logs/refs/heads/develop A trunk/thirdparty/cffi/.git/logs/refs/heads/master A trunk/thirdparty/cffi/.git/logs/refs/remotes/ A trunk/thirdparty/cffi/.git/logs/refs/remotes/common-lisp/ A trunk/thirdparty/cffi/.git/logs/refs/remotes/common-lisp/HEAD A trunk/thirdparty/cffi/.git/logs/refs/remotes/common-lisp/fsbv A trunk/thirdparty/cffi/.git/logs/refs/remotes/common-lisp/master A trunk/thirdparty/cffi/.git/logs/refs/remotes/origin/ A trunk/thirdparty/cffi/.git/logs/refs/remotes/origin/develop A trunk/thirdparty/cffi/.git/logs/refs/remotes/origin/master A trunk/thirdparty/cffi/.git/objects/ A trunk/thirdparty/cffi/.git/objects/06/ A trunk/thirdparty/cffi/.git/objects/06/1a6aef2a578d47d06a74f1c43b90b5b41f6a56 A trunk/thirdparty/cffi/.git/objects/30/ A trunk/thirdparty/cffi/.git/objects/30/abf1bf39d576c0432707287a229e8e9cf9f10b A trunk/thirdparty/cffi/.git/objects/41/ A trunk/thirdparty/cffi/.git/objects/41/0b2d077ce56c8639cd13f57ea322af9937b0a1 A trunk/thirdparty/cffi/.git/objects/4c/ A trunk/thirdparty/cffi/.git/objects/4c/52cf41278c5cf16c18f8b5e50335b351a0eeb4 A trunk/thirdparty/cffi/.git/objects/4f/ A trunk/thirdparty/cffi/.git/objects/4f/340c17045aefdcc005f5ae31d52aaebf7f7dcd A trunk/thirdparty/cffi/.git/objects/96/ A trunk/thirdparty/cffi/.git/objects/96/d86ece3271df17e2542caf02fd32a193711d51 A trunk/thirdparty/cffi/.git/objects/a1/ A trunk/thirdparty/cffi/.git/objects/a1/133dc47b4eeeaf92058c8d36ba9e5eec66d222 A trunk/thirdparty/cffi/.git/objects/d1/ A trunk/thirdparty/cffi/.git/objects/d1/194c80a10b0bd5686b60811c5b4956d2cf729e A trunk/thirdparty/cffi/.git/objects/f3/ A trunk/thirdparty/cffi/.git/objects/f3/d270ac18c0ccac96fb1772dee53b21098af790 A trunk/thirdparty/cffi/.git/objects/info/ A trunk/thirdparty/cffi/.git/objects/pack/ A trunk/thirdparty/cffi/.git/objects/pack/pack-1de7386080a7c3ddb59530d2b7592cbaad17ac25.idx A trunk/thirdparty/cffi/.git/objects/pack/pack-1de7386080a7c3ddb59530d2b7592cbaad17ac25.pack A trunk/thirdparty/cffi/.git/packed-refs A trunk/thirdparty/cffi/.git/refs/ A trunk/thirdparty/cffi/.git/refs/heads/ A trunk/thirdparty/cffi/.git/refs/heads/develop A trunk/thirdparty/cffi/.git/refs/heads/master A trunk/thirdparty/cffi/.git/refs/remotes/ A trunk/thirdparty/cffi/.git/refs/remotes/common-lisp/ A trunk/thirdparty/cffi/.git/refs/remotes/common-lisp/HEAD A trunk/thirdparty/cffi/.git/refs/remotes/common-lisp/fsbv A trunk/thirdparty/cffi/.git/refs/remotes/common-lisp/master A trunk/thirdparty/cffi/.git/refs/remotes/origin/ A trunk/thirdparty/cffi/.git/refs/remotes/origin/develop A trunk/thirdparty/cffi/.git/refs/remotes/origin/master A trunk/thirdparty/cffi/.git/refs/tags/ A trunk/thirdparty/cffi/.gitignore A trunk/thirdparty/cffi/COPYRIGHT A trunk/thirdparty/cffi/HEADER A trunk/thirdparty/cffi/Makefile A trunk/thirdparty/cffi/README A trunk/thirdparty/cffi/TODO A trunk/thirdparty/cffi/cffi-examples.asd A trunk/thirdparty/cffi/cffi-grovel.asd A trunk/thirdparty/cffi/cffi-tests.asd A trunk/thirdparty/cffi/cffi-uffi-compat.asd A trunk/thirdparty/cffi/cffi.asd A trunk/thirdparty/cffi/doc/ A trunk/thirdparty/cffi/doc/Makefile A trunk/thirdparty/cffi/doc/allegro-internals.txt A trunk/thirdparty/cffi/doc/cffi-manual.texinfo A trunk/thirdparty/cffi/doc/cffi-sys-spec.texinfo A trunk/thirdparty/cffi/doc/colorize-lisp-examples.lisp A trunk/thirdparty/cffi/doc/gendocs.sh A trunk/thirdparty/cffi/doc/gendocs_template A trunk/thirdparty/cffi/doc/mem-vector.txt A trunk/thirdparty/cffi/doc/shareable-vectors.txt A trunk/thirdparty/cffi/doc/style.css A trunk/thirdparty/cffi/examples/ A trunk/thirdparty/cffi/examples/examples.lisp A trunk/thirdparty/cffi/examples/gethostname.lisp A trunk/thirdparty/cffi/examples/gettimeofday.lisp A trunk/thirdparty/cffi/examples/mapping.lisp A trunk/thirdparty/cffi/examples/run-examples.lisp A trunk/thirdparty/cffi/examples/translator-test.lisp A trunk/thirdparty/cffi/grovel/ A trunk/thirdparty/cffi/grovel/asdf.lisp A trunk/thirdparty/cffi/grovel/common.h A trunk/thirdparty/cffi/grovel/grovel.lisp A trunk/thirdparty/cffi/grovel/invoke.lisp A trunk/thirdparty/cffi/grovel/package.lisp A trunk/thirdparty/cffi/scripts/ A trunk/thirdparty/cffi/scripts/release.sh A trunk/thirdparty/cffi/src/ A trunk/thirdparty/cffi/src/cffi-abcl.lisp A trunk/thirdparty/cffi/src/cffi-allegro.lisp A trunk/thirdparty/cffi/src/cffi-clisp.lisp A trunk/thirdparty/cffi/src/cffi-cmucl.lisp A trunk/thirdparty/cffi/src/cffi-corman.lisp A trunk/thirdparty/cffi/src/cffi-ecl.lisp A trunk/thirdparty/cffi/src/cffi-gcl.lisp A trunk/thirdparty/cffi/src/cffi-lispworks.lisp A trunk/thirdparty/cffi/src/cffi-openmcl.lisp A trunk/thirdparty/cffi/src/cffi-sbcl.lisp A trunk/thirdparty/cffi/src/cffi-scl.lisp A trunk/thirdparty/cffi/src/early-types.lisp A trunk/thirdparty/cffi/src/enum.lisp A trunk/thirdparty/cffi/src/features.lisp A trunk/thirdparty/cffi/src/foreign-vars.lisp A trunk/thirdparty/cffi/src/functions.lisp A trunk/thirdparty/cffi/src/libraries.lisp A trunk/thirdparty/cffi/src/package.lisp A trunk/thirdparty/cffi/src/strings.lisp A trunk/thirdparty/cffi/src/types.lisp A trunk/thirdparty/cffi/src/utils.lisp A trunk/thirdparty/cffi/tests/ A trunk/thirdparty/cffi/tests/GNUmakefile A trunk/thirdparty/cffi/tests/Makefile A trunk/thirdparty/cffi/tests/bindings.lisp A trunk/thirdparty/cffi/tests/callbacks.lisp A trunk/thirdparty/cffi/tests/compile.bat A trunk/thirdparty/cffi/tests/defcfun.lisp A trunk/thirdparty/cffi/tests/enum.lisp A trunk/thirdparty/cffi/tests/foreign-globals.lisp A trunk/thirdparty/cffi/tests/funcall.lisp A trunk/thirdparty/cffi/tests/libtest.c A trunk/thirdparty/cffi/tests/libtest2.c A trunk/thirdparty/cffi/tests/memory.lisp A trunk/thirdparty/cffi/tests/misc-types.lisp A trunk/thirdparty/cffi/tests/misc.lisp A trunk/thirdparty/cffi/tests/package.lisp A trunk/thirdparty/cffi/tests/random-tester.lisp A trunk/thirdparty/cffi/tests/run-tests.lisp A trunk/thirdparty/cffi/tests/strings.lisp A trunk/thirdparty/cffi/tests/struct.lisp A trunk/thirdparty/cffi/tests/union.lisp A trunk/thirdparty/cffi/uffi-compat/ A trunk/thirdparty/cffi/uffi-compat/uffi-compat.dx64fsl A trunk/thirdparty/cffi/uffi-compat/uffi-compat.lisp A trunk/thirdparty/cffi/uffi-compat/uffi.asd Change set too large, please see URL above

1 0

[bknr-cvs] manuel changed trunk/thirdparty/cffi/
by BKNR Commits 13 Sep '10

13 Sep '10

Revision: 4607 Author: manuel URL: http://bknr.net/trac/changeset/4607 altes cffi entfernen D trunk/thirdparty/cffi/

1 0

[bknr-cvs] manuel changed trunk/thirdparty/cl-gd/gd-uffi.lisp
by BKNR Commits 13 Sep '10

13 Sep '10

Revision: 4606 Author: manuel URL: http://bknr.net/trac/changeset/4606 offset fixversuch entfernen U trunk/thirdparty/cl-gd/gd-uffi.lisp Modified: trunk/thirdparty/cl-gd/gd-uffi.lisp =================================================================== --- trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 19:58:06 UTC (rev 4605) +++ trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 19:58:32 UTC (rev 4606) @@ -35,7 +35,7 @@ (sx :int) (sy :int) (colors-total :int) - (red (:array :int #.+max-colors+) :offset 20) + (red (:array :int #.+max-colors+)) (green (:array :int #.+max-colors+)) (blue (:array :int #.+max-colors+)) (open (:array :int #.+max-colors+))

1 0

[bknr-cvs] manuel changed trunk/thirdparty/cl-gd/
by BKNR Commits 13 Sep '10

13 Sep '10

Revision: 4605 Author: manuel URL: http://bknr.net/trac/changeset/4605 cl-gd fixes zum laufen auf 64bit openmcl, *cough* U trunk/thirdparty/cl-gd/Makefile U trunk/thirdparty/cl-gd/gd-uffi.lisp U trunk/thirdparty/cl-gd/misc.lisp Modified: trunk/thirdparty/cl-gd/Makefile =================================================================== --- trunk/thirdparty/cl-gd/Makefile 2010-09-13 15:22:30 UTC (rev 4604) +++ trunk/thirdparty/cl-gd/Makefile 2010-09-13 19:58:06 UTC (rev 4605) @@ -8,4 +8,4 @@ # this should work for Mac OS X cl-gd-glue.dylib: - gcc -arch i386 -lgd -lpng -lz -lfreetype -ljpeg -dynamiclib cl-gd-glue.c -o cl-gd-glue.dylib -I/opt/local/include -L/opt/local/lib + gcc -arch i386 -arch x86_64 -lgif -lgd -lpng -lz -lfreetype -ljpeg -dynamiclib cl-gd-glue.c -o cl-gd-glue.dylib -I/opt/local/include -L/opt/local/lib Modified: trunk/thirdparty/cl-gd/gd-uffi.lisp =================================================================== --- trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 15:22:30 UTC (rev 4604) +++ trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 19:58:06 UTC (rev 4605) @@ -35,7 +35,7 @@ (sx :int) (sy :int) (colors-total :int) - (red (:array :int #.+max-colors+)) + (red (:array :int #.+max-colors+) :offset 20) (green (:array :int #.+max-colors+)) (blue (:array :int #.+max-colors+)) (open (:array :int #.+max-colors+)) @@ -74,6 +74,12 @@ (cx2 :int) (cy2 :int)) +;; XXX evil hack +#+(and :openmcl :64-bit-target) +(defmethod cffi::foreign-type-alignment ((type uffi-array-type)) + 4) + + (def-type pixels-array (* (* :unsigned-char))) (def-type pixels-row (* :unsigned-char)) (def-type t-pixels-array (* (* :int))) Modified: trunk/thirdparty/cl-gd/misc.lisp =================================================================== --- trunk/thirdparty/cl-gd/misc.lisp 2010-09-13 15:22:30 UTC (rev 4604) +++ trunk/thirdparty/cl-gd/misc.lisp 2010-09-13 19:58:06 UTC (rev 4605) @@ -220,12 +220,12 @@ (let ((,raw-pixels (get-slot-value ,img 'gd-image 'pixels))) (declare (type pixels-array ,raw-pixels)) (dotimes (,y-var ,height) - (let ((,row (deref-array ,raw-pixels '(:array (* :unsigned-char)) ,y-var))) + (let ((,row (deref-array ,raw-pixels '(:array (* :unsigned-byte)) ,y-var))) (declare (type pixels-row ,row)) (macrolet ((do-pixels-in-row ((,x-var) &body ,inner-body) `(dotimes (,,x-var ,',width) (macrolet ((raw-pixel () - `(deref-array ,',',row '(:array :unsigned-char) ,',,x-var))) + `(deref-array ,',',row '(:array :unsigned-byte) ,',,x-var))) (locally ,@,inner-body))))) (locally

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
197
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

bknr-cvs