;;;; -*- coding:utf-8 -*- (eval-when (:compile-toplevel :load-toplevel :execute) (setf *readtable* (copy-readtable nil))) (ext:without-package-lock ("GRAY" "COMMON-LISP" "CHARSET") (package:add-nickname "CHARSET""EXTERNAL-FORMAT") (asdf:oos 'asdf:load-op :mcclim)) (asdf:operate 'asdf:load-op :clim-listener) (format t "~2%(clim-listener:run-listener)~2%")