bknr-cvs

bknr-cvs@common-lisp.net

1964 discussions

[bknr-cvs] hans changed trunk/projects/pch/src/pch.erl
by BKNR Commits 18 Jul '08

18 Jul '08

Revision: 3510 Author: hans URL: http://bknr.net/trac/changeset/3510 Simple in-memory cache implemented. U trunk/projects/pch/src/pch.erl Modified: trunk/projects/pch/src/pch.erl =================================================================== --- trunk/projects/pch/src/pch.erl 2008-07-18 16:29:16 UTC (rev 3509) +++ trunk/projects/pch/src/pch.erl 2008-07-18 21:34:47 UTC (rev 3510) @@ -2,49 +2,40 @@ %%% http://www.rsaccon.com/2007/09/mochiweb-erlang-based-webserver-toolkit.html -module(pch). --export([start/0, loop/1, stop/0]). +-export([start/0, loop/2, stop/0]). -define(DEFAULTS, [{name, ?MODULE}, {port, 9888}]). start() -> - Loop = fun (Req) -> ?MODULE:loop(Req) end, + Cache = ets:new(table, [set, public]), + Loop = fun (Req) -> ?MODULE:loop(Req, Cache) end, mochiweb_http:start([{loop, Loop} | ?DEFAULTS]). stop() -> mochiweb_http:stop(?MODULE). -backend_request(Req) -> +fetch_from_backend(Path) -> {ok, {{_Version, 200, _ReasonPhrase}, Headers, Body}} = - http:request("http://test.createrainforest.org" ++ Req:get(path)), - Req:respond({200, Headers, Body}). + http:request("http://test.createrainforest.org" ++ Path), + {ok, Headers, Body}. -loop(Req) -> - "/" ++ Path = Req:get(path), +backend_request(Req, Cache) -> + Path = Req:get(path), + case ets:lookup(Cache, Path) of + [{Path, Headers, Body}] -> + io:format("cache HIT for ~p~n", [Path]), + Req:respond({200, Headers, Body}); + _ -> + io:format("cache MISS for ~p~n", [Path]), + {ok, Headers, Body} = fetch_from_backend(Path), + ets:insert(Cache, {Path, Headers, Body}), + Req:respond({200, Headers, Body}) + end. + +loop(Req, Cache) -> case Req:get(method) of - M when M =:= 'GET'; M =:= 'HEAD' -> - case Path of - "timer" -> - Response = Req:ok({"text/plain", chunked}), - timer(Response); - "static" -> - Req:ok({"text/plain", "static response"}); - "nodes" -> - Req:ok({"text/plain", - io_lib:format("~p~n", [nodes()])}); - "dump" -> - Req:ok({"text/plain", - io_lib:format("~p~n", [Req:dump()])}); -%% _ -> -%% Req:serve_file(Path) - _ -> - backend_request(Req) - end; + M when M =:= 'GET' -> + backend_request(Req, Cache); _ -> Req:respond({501, [], ""}) end. - -timer(Req) -> - Req:write_chunk(io_lib:format("The time is: ~p~n", - [calendar:local_time()])), - timer:sleep(1000), - timer(Req).

1 0

[bknr-cvs] hans changed trunk/
by BKNR Commits 18 Jul '08

18 Jul '08

Revision: 3509 Author: hans URL: http://bknr.net/trac/changeset/3509 Already works a little. U trunk/projects/pch/src/pch.erl _U trunk/thirdparty/mochiweb/doc/ _U trunk/thirdparty/mochiweb/ebin/ Modified: trunk/projects/pch/src/pch.erl =================================================================== --- trunk/projects/pch/src/pch.erl 2008-07-18 16:11:06 UTC (rev 3508) +++ trunk/projects/pch/src/pch.erl 2008-07-18 16:29:16 UTC (rev 3509) @@ -2,20 +2,23 @@ %%% http://www.rsaccon.com/2007/09/mochiweb-erlang-based-webserver-toolkit.html -module(pch). --export([start/0, loop/2, stop/0]). +-export([start/0, loop/1, stop/0]). -define(DEFAULTS, [{name, ?MODULE}, - {port, 9952}]). + {port, 9888}]). start() -> - DocRoot = filename:dirname(filename:dirname(code:which(?MODULE))), - code:add_patha(filename:join([DocRoot, "mochiweb-c4", "ebin"])), - Loop = fun (Req) -> ?MODULE:loop(Req, DocRoot) end, + Loop = fun (Req) -> ?MODULE:loop(Req) end, mochiweb_http:start([{loop, Loop} | ?DEFAULTS]). stop() -> mochiweb_http:stop(?MODULE). -loop(Req, DocRoot) -> +backend_request(Req) -> + {ok, {{_Version, 200, _ReasonPhrase}, Headers, Body}} = + http:request("http://test.createrainforest.org" ++ Req:get(path)), + Req:respond({200, Headers, Body}). + +loop(Req) -> "/" ++ Path = Req:get(path), case Req:get(method) of M when M =:= 'GET'; M =:= 'HEAD' -> @@ -31,8 +34,10 @@ "dump" -> Req:ok({"text/plain", io_lib:format("~p~n", [Req:dump()])}); +%% _ -> +%% Req:serve_file(Path) _ -> - Req:serve_file(Path, DocRoot) + backend_request(Req) end; _ -> Req:respond({501, [], ""}) Property changes on: trunk/thirdparty/mochiweb/doc ___________________________________________________________________ Name: svn:ignore + *.html Property changes on: trunk/thirdparty/mochiweb/ebin ___________________________________________________________________ Name: svn:ignore + *.beam *.app

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp
by BKNR Commits 18 Jul '08

18 Jul '08

Revision: 3508 Author: ksprotte URL: http://bknr.net/trac/changeset/3508 contract-tree nodes are no more transparent if there are on the last layer U trunk/projects/bos/web/contract-tree.lisp Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-18 16:08:27 UTC (rev 3507) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-18 16:11:06 UTC (rev 3508) @@ -241,7 +241,9 @@ (labels ((find-contract-color (contract) (destructuring-bind (r g b) (contract-color contract) - (cl-gd:find-color r g b :alpha 40)))) + (cl-gd:find-color r g b :alpha (if (node-has-children-p node) + 40 + 0))))) (let ((box (geo-box node)) (image-size *contract-tree-images-size*)) ;; (warn "will update image for ~a" node)

1 0

[bknr-cvs] hans changed trunk/projects/pch/
by BKNR Commits 18 Jul '08

18 Jul '08

Revision: 3507 Author: hans URL: http://bknr.net/trac/changeset/3507 Create new frontend project: Pontificia Cohors Helvetica A trunk/projects/pch/ A trunk/projects/pch/src/ A trunk/projects/pch/src/pch.erl Added: trunk/projects/pch/src/pch.erl =================================================================== --- trunk/projects/pch/src/pch.erl (rev 0) +++ trunk/projects/pch/src/pch.erl 2008-07-18 16:08:27 UTC (rev 3507) @@ -0,0 +1,45 @@ +%%% from +%%% http://www.rsaccon.com/2007/09/mochiweb-erlang-based-webserver-toolkit.html + +-module(pch). +-export([start/0, loop/2, stop/0]). +-define(DEFAULTS, [{name, ?MODULE}, + {port, 9952}]). + +start() -> + DocRoot = filename:dirname(filename:dirname(code:which(?MODULE))), + code:add_patha(filename:join([DocRoot, "mochiweb-c4", "ebin"])), + Loop = fun (Req) -> ?MODULE:loop(Req, DocRoot) end, + mochiweb_http:start([{loop, Loop} | ?DEFAULTS]). + +stop() -> + mochiweb_http:stop(?MODULE). + +loop(Req, DocRoot) -> + "/" ++ Path = Req:get(path), + case Req:get(method) of + M when M =:= 'GET'; M =:= 'HEAD' -> + case Path of + "timer" -> + Response = Req:ok({"text/plain", chunked}), + timer(Response); + "static" -> + Req:ok({"text/plain", "static response"}); + "nodes" -> + Req:ok({"text/plain", + io_lib:format("~p~n", [nodes()])}); + "dump" -> + Req:ok({"text/plain", + io_lib:format("~p~n", [Req:dump()])}); + _ -> + Req:serve_file(Path, DocRoot) + end; + _ -> + Req:respond({501, [], ""}) + end. + +timer(Req) -> + Req:write_chunk(io_lib:format("The time is: ~p~n", + [calendar:local_time()])), + timer:sleep(1000), + timer(Req).

1 0

[bknr-cvs] hans changed trunk/thirdparty/mochiweb/
by BKNR Commits 18 Jul '08

18 Jul '08

Revision: 3506 Author: hans URL: http://bknr.net/trac/changeset/3506 import mochiweb A trunk/thirdparty/mochiweb/ A trunk/thirdparty/mochiweb/LICENSE A trunk/thirdparty/mochiweb/Makefile A trunk/thirdparty/mochiweb/README A trunk/thirdparty/mochiweb/deps/ A trunk/thirdparty/mochiweb/doc/ A trunk/thirdparty/mochiweb/ebin/ A trunk/thirdparty/mochiweb/include/ A trunk/thirdparty/mochiweb/priv/ A trunk/thirdparty/mochiweb/priv/skel/ A trunk/thirdparty/mochiweb/priv/skel/Makefile A trunk/thirdparty/mochiweb/priv/skel/deps/ A trunk/thirdparty/mochiweb/priv/skel/doc/ A trunk/thirdparty/mochiweb/priv/skel/ebin/ A trunk/thirdparty/mochiweb/priv/skel/include/ A trunk/thirdparty/mochiweb/priv/skel/priv/ A trunk/thirdparty/mochiweb/priv/skel/priv/www/ A trunk/thirdparty/mochiweb/priv/skel/priv/www/index.html A trunk/thirdparty/mochiweb/priv/skel/src/ A trunk/thirdparty/mochiweb/priv/skel/src/Makefile A trunk/thirdparty/mochiweb/priv/skel/src/skel.app A trunk/thirdparty/mochiweb/priv/skel/src/skel.erl A trunk/thirdparty/mochiweb/priv/skel/src/skel.hrl A trunk/thirdparty/mochiweb/priv/skel/src/skel_app.erl A trunk/thirdparty/mochiweb/priv/skel/src/skel_deps.erl A trunk/thirdparty/mochiweb/priv/skel/src/skel_sup.erl A trunk/thirdparty/mochiweb/priv/skel/src/skel_web.erl A trunk/thirdparty/mochiweb/priv/skel/start-dev.sh A trunk/thirdparty/mochiweb/priv/skel/start.sh A trunk/thirdparty/mochiweb/priv/skel/support/ A trunk/thirdparty/mochiweb/priv/skel/support/include.mk A trunk/thirdparty/mochiweb/scripts/ A trunk/thirdparty/mochiweb/scripts/new_mochiweb.erl A trunk/thirdparty/mochiweb/src/ A trunk/thirdparty/mochiweb/src/Makefile A trunk/thirdparty/mochiweb/src/mochifmt.erl A trunk/thirdparty/mochiweb/src/mochifmt_records.erl A trunk/thirdparty/mochiweb/src/mochifmt_std.erl A trunk/thirdparty/mochiweb/src/mochihex.erl A trunk/thirdparty/mochiweb/src/mochijson.erl A trunk/thirdparty/mochiweb/src/mochijson2.erl A trunk/thirdparty/mochiweb/src/mochinum.erl A trunk/thirdparty/mochiweb/src/mochiweb.app A trunk/thirdparty/mochiweb/src/mochiweb.erl A trunk/thirdparty/mochiweb/src/mochiweb_app.erl A trunk/thirdparty/mochiweb/src/mochiweb_charref.erl A trunk/thirdparty/mochiweb/src/mochiweb_cookies.erl A trunk/thirdparty/mochiweb/src/mochiweb_echo.erl A trunk/thirdparty/mochiweb/src/mochiweb_headers.erl A trunk/thirdparty/mochiweb/src/mochiweb_html.erl A trunk/thirdparty/mochiweb/src/mochiweb_http.erl A trunk/thirdparty/mochiweb/src/mochiweb_multipart.erl A trunk/thirdparty/mochiweb/src/mochiweb_request.erl A trunk/thirdparty/mochiweb/src/mochiweb_response.erl A trunk/thirdparty/mochiweb/src/mochiweb_skel.erl A trunk/thirdparty/mochiweb/src/mochiweb_socket_server.erl A trunk/thirdparty/mochiweb/src/mochiweb_sup.erl A trunk/thirdparty/mochiweb/src/mochiweb_util.erl A trunk/thirdparty/mochiweb/src/reloader.erl A trunk/thirdparty/mochiweb/support/ A trunk/thirdparty/mochiweb/support/include.mk Change set too large, please see URL above

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp
by BKNR Commits 18 Jul '08

18 Jul '08

Revision: 3505 Author: ksprotte URL: http://bknr.net/trac/changeset/3505 removed kml-req-count that was used for debugging U trunk/projects/bos/web/contract-tree.lisp Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-18 14:28:25 UTC (rev 3504) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-18 15:19:08 UTC (rev 3505) @@ -5,9 +5,7 @@ ((name :allocation :class :initform 'contract-node) (timestamp :accessor timestamp :initform 0) ; timestamp initially "very old" (placemark-contracts :initform nil :accessor placemark-contracts) - (image :initform nil :accessor image) - (kml-req-count :initform 0 :accessor kml-req-count) - (image-req-count :initform 0 :accessor image-req-count))) + (image :initform nil :accessor image))) (defun contract-node-invalidate-timestamp (node) (let ((image (contract-node-find-corresponding-store-image node))) @@ -155,8 +153,7 @@ :root-element "kml") (with-query-params ((lang "en") (path) (rmcpath) (rmcid)) - (handle-if-node-modified - (incf (kml-req-count node)) + (handle-if-node-modified (setf (hunchentoot:header-out :last-modified) (hunchentoot:rfc-1123-date (timestamp node))) (let* ((lod (node-lod node))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/kml-
by BKNR Commits 18 Jul '08

18 Jul '08

Revision: 3504 Author: ksprotte URL: http://bknr.net/trac/changeset/3504 new style option for kml-network-links: :hide-children t U trunk/projects/bos/web/kml-handlers.lisp U trunk/projects/bos/web/kml-utils.lisp Modified: trunk/projects/bos/web/kml-handlers.lisp =================================================================== --- trunk/projects/bos/web/kml-handlers.lisp 2008-07-18 13:29:12 UTC (rev 3503) +++ trunk/projects/bos/web/kml-handlers.lisp 2008-07-18 14:28:25 UTC (rev 3504) @@ -83,11 +83,18 @@ (with-element "range" (text "1134.262777389377")) (with-element "tilt" (text "0")) (with-element "heading" (text "1.391362238653075"))) - (dolist (sat-layer (class-instances 'sat-layer)) - (kml-network-link (format nil "http://~a/sat-root-kml?name=~A" (website-host) (name sat-layer)) - :rect (geo-box-rectangle *m2-geo-box*) - :lod '(:min 0 :max -1) - :name (dictionary-entry (princ-to-string (name sat-layer)) lang))) + (with-element "Folder" + (attribute "name" "Sat-Images") + (attribute "open" "1") + (with-element "Style" + (with-element "ListStyle" + (with-element "listItemType" (text "radioFolder")))) + (dolist (sat-layer (class-instances 'sat-layer)) + (kml-network-link (format nil "http://~a/sat-root-kml?name=~A" (website-host) (name sat-layer)) + :rect (geo-box-rectangle *m2-geo-box*) + :lod '(:min 0 :max -1) + :name (dictionary-entry (princ-to-string (name sat-layer)) lang) + :hide-children t))) (let ((href (if (not contract) (format nil "http://~a/contract-tree-kml?lang=~A" (website-host) lang) (let* ((node (find-contract-node *contract-tree* contract)) @@ -98,13 +105,16 @@ (kml-network-link href :rect (geo-box-rectangle (geo-box *contract-tree*)) :lod (node-lod *contract-tree*) - :name (dictionary-entry "Squaremetre Area" lang))) + :name (dictionary-entry "Squaremetre Area" lang) + :hide-children t)) (kml-network-link (format nil "http://~a/poi-kml-all?lang=~A" (website-host) lang) :name (dictionary-entry "POIs" lang) :rect (make-rectangle :x 0 :y 0 :width +width+ :height +width+) - :lod '(:min 0 :max -1)) + :lod '(:min 0 :max -1) + :hide-children t) (kml-network-link (format nil "http://~a/country-stats?lang=~A" (website-host) lang) - :name (dictionary-entry "Country-Stats" lang))))))) + :name (dictionary-entry "Country-Stats" lang) + :hide-children t)))))) (defmethod handle-object ((handler kml-root-handler) (object sponsor)) (write-root-kml handler object)) Modified: trunk/projects/bos/web/kml-utils.lisp =================================================================== --- trunk/projects/bos/web/kml-utils.lisp 2008-07-18 13:29:12 UTC (rev 3503) +++ trunk/projects/bos/web/kml-utils.lisp 2008-07-18 14:28:25 UTC (rev 3504) @@ -267,11 +267,20 @@ ;; (puri:render-uri href out)))) ;; (kml-link string))) + +(defun kml-hide-children-style () + (with-element "Style" + (with-element "ListStyle" + (with-element "listItemType" (text "checkHideChildren")) + (with-element "bgColor" (text "00ffffff"))))) + (defun kml-network-link (href &key rect lod name http-query - fly-to-view) + fly-to-view hide-children) (with-element "NetworkLink" (when name (with-element "name" (text name))) (when rect (kml-region rect lod)) + (when hide-children + (kml-hide-children-style)) (when fly-to-view (with-element "flyToView" (text "1"))) (kml-link href)))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp
by BKNR Commits 18 Jul '08

18 Jul '08

Revision: 3503 Author: ksprotte URL: http://bknr.net/trac/changeset/3503 oops, stupid bugin start-contract-tree-image-update-daemon U trunk/projects/bos/web/contract-tree.lisp Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-18 12:28:05 UTC (rev 3502) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-18 13:29:12 UTC (rev 3503) @@ -296,6 +296,9 @@ (map-nodes #'contract-node-update-image-if-needed *contract-tree* :prune-test (lambda (node) (not (contract-node-update-image-needed-p node)))))) +(defun contract-tree-force-update-images () + (map-nodes #'contract-node-update-image *contract-tree*)) + ;;; image handler (defclass contract-tree-image-handler (page-handler) ()) @@ -328,8 +331,9 @@ (defun start-contract-tree-image-update-daemon () (unless (contract-tree-image-update-daemon-running-p) (setq *contract-tree-image-update-daemon-halt* nil) - (bt:make-thread #'contract-tree-image-update-daemon-loop - :name "contract-tree-image-update-daemon"))) + (setq *contract-tree-image-update-daemon* + (bt:make-thread #'contract-tree-image-update-daemon-loop + :name "contract-tree-image-update-daemon")))) (defun stop-contract-tree-image-update-daemon (&key wait) (when (contract-tree-image-update-daemon-running-p)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/m2/m2.lisp
by BKNR Commits 18 Jul '08

18 Jul '08

Revision: 3502 Author: ksprotte URL: http://bknr.net/trac/changeset/3502 optimized contract-compute-largest-rectangle that also helped to avoid a screamer fail on a certain contract U trunk/projects/bos/m2/m2.lisp Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2008-07-18 11:43:24 UTC (rev 3501) +++ trunk/projects/bos/m2/m2.lisp 2008-07-18 12:28:05 UTC (rev 3502) @@ -1,3 +1,4 @@ + (in-package :bos.m2) ;;; @@ -392,49 +393,55 @@ (let* ((m2s (contract-m2s contract)) (area (length m2s)) (scaler (ceiling area 1000.0)) - (bounding-box (contract-bounding-box contract))) - (geometry:with-rectangle bounding-box - (declare (ignore width height)) - (labels ( ;; to-orig - (distance-to-orig (d) - (when-scaling-needed d - (round (* d scaler)))) - (x-coordinate-to-orig (x) - (when-scaling-needed x - (+ left (round (* (- x left) scaler))))) - (y-coordinate-to-orig (y) - (when-scaling-needed y - (+ top (round (* (- y top) scaler))))) - (rectangle-to-orig (r) - (when-scaling-needed r - (geometry:with-rectangle r - (list (x-coordinate-to-orig left) - (y-coordinate-to-orig top) - (distance-to-orig width) - (distance-to-orig height))))) - ;; from-orig - (distance-from-orig (d) - (when-scaling-needed d - (floor d scaler))) - (x-coordinate-from-orig (x) - (when-scaling-needed x - (+ left (floor (- x left) scaler)))) - (y-coordinate-from-orig (y) - (when-scaling-needed y - (+ top (floor (- y top) scaler)))) - (rectangle-from-orig (r) - (when-scaling-needed r - (geometry:with-rectangle r - (list (x-coordinate-from-orig left) - (y-coordinate-from-orig top) - (distance-from-orig width) - (distance-from-orig height)))))) - (rectangle-to-orig - (screamer-user:largest-rectangle - (rectangle-from-orig bounding-box) - (lambda (x y) - (let ((m2 (get-m2 (x-coordinate-to-orig x) (y-coordinate-to-orig y)))) - (and m2 (eql contract (m2-contract m2)))))))))))) + (bounding-box (contract-bounding-box contract)) + (bounding-width (third bounding-box)) + (bounding-height (fourth bounding-box))) + (if (= area (* bounding-width bounding-height)) + ;; no need to run screamer here, since we already know the + ;; answer + bounding-box + (geometry:with-rectangle bounding-box + (declare (ignore width height)) + (labels ( ;; to-orig + (distance-to-orig (d) + (when-scaling-needed d + (round (* d scaler)))) + (x-coordinate-to-orig (x) + (when-scaling-needed x + (+ left (round (* (- x left) scaler))))) + (y-coordinate-to-orig (y) + (when-scaling-needed y + (+ top (round (* (- y top) scaler))))) + (rectangle-to-orig (r) + (when-scaling-needed r + (geometry:with-rectangle r + (list (x-coordinate-to-orig left) + (y-coordinate-to-orig top) + (distance-to-orig width) + (distance-to-orig height))))) + ;; from-orig + (distance-from-orig (d) + (when-scaling-needed d + (floor d scaler))) + (x-coordinate-from-orig (x) + (when-scaling-needed x + (+ left (floor (- x left) scaler)))) + (y-coordinate-from-orig (y) + (when-scaling-needed y + (+ top (floor (- y top) scaler)))) + (rectangle-from-orig (r) + (when-scaling-needed r + (geometry:with-rectangle r + (list (x-coordinate-from-orig left) + (y-coordinate-from-orig top) + (distance-from-orig width) + (distance-from-orig height)))))) + (rectangle-to-orig + (screamer-user:largest-rectangle + (rectangle-from-orig bounding-box) + (lambda (x y) + (let ((m2 (get-m2 (x-coordinate-to-orig x) (y-coordinate-to-orig y)))) + (and m2 (eql contract (m2-contract m2))))))))))))) (defun contract-neighbours (contract) "Return all contracts that have an adjacent m2 to one of CONTRACT's m2s.

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/m2/m2-store.lisp
by BKNR Commits 18 Jul '08

18 Jul '08

Revision: 3501 Author: ksprotte URL: http://bknr.net/trac/changeset/3501 added a restart that allows skipping of a transient init-function U trunk/projects/bos/m2/m2-store.lisp Modified: trunk/projects/bos/m2/m2-store.lisp =================================================================== --- trunk/projects/bos/m2/m2-store.lisp 2008-07-18 11:03:33 UTC (rev 3500) +++ trunk/projects/bos/m2/m2-store.lisp 2008-07-18 11:43:24 UTC (rev 3501) @@ -66,4 +66,6 @@ (defun invoke-store-transient-init-functions () (dolist (function-name *store-transient-init-functions*) - (funcall function-name))) \ No newline at end of file + (with-simple-restart (skip-init-function "Skip transient-init-function ~A" + function-name) + (funcall function-name)))) \ No newline at end of file

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

bknr-cvs