October 2007 - cl-net-snmp-cvs@common-lisp.net

[cl-net-snmp-cvs] r96 - books/onlisp trunk
by ctian＠common-lisp.net 31 Oct '07

31 Oct '07

Author: ctian Date: Wed Oct 31 08:51:02 2007 New Revision: 96 Modified: books/onlisp/0-preface.tex books/onlisp/4-utility_functions.tex trunk/README Log: commit changes Modified: books/onlisp/0-preface.tex ============================================================================== --- books/onlisp/0-preface.tex (original) +++ books/onlisp/0-preface.tex Wed Oct 31 08:51:02 2007 @@ -59,7 +59,7 @@ 但他确实以一种方式回答了这个问题: 他向人们 \textsl{展示} 了什么是爵士乐. 同样也只有一种方式来解释 Lisp 的威力---演示那些对于其他语言来说极其困难甚至不可能实现的技术. 多数关于编程的书籍---包括 Lisp 编程书籍--- 采用的都是那些你可以用任何语言编写的程序. \textsl{On Lisp} 处理的是那类你只能用 Lisp 来写的程序. -可扩展性, 自顶向下编程, 交互式开发, 源代码转换, 嵌入式语言---这些都是 Lisp 展示其高级特性的场合. +可扩展性, 自下而上编程, 交互式开发, 源代码转换, 嵌入式语言---这些都是 Lisp 展示其高级特性的场合. 当然, 从理论上讲, 任何图灵等价的编程语言都可以做到任何其他同类语言能做的事. 但那个所谓的能力不是指编程语言的能力. 理论上任何你能用编程语言做到的事也可以用图灵机来做, 但实际上在图灵机上编程得不偿失. Modified: books/onlisp/4-utility_functions.tex ============================================================================== --- books/onlisp/4-utility_functions.tex (original) +++ books/onlisp/4-utility_functions.tex Wed Oct 31 08:51:02 2007 @@ -1,6 +1,9 @@ \chapter{实用函数} \label{chap:utility_functions} +Common Lisp 操作符分为三种类型: 可以自定义的函数和宏, 以及不能自定义的特殊形式 +(special form). 本章描述用函数来扩展 Lisp 的技术. 但这里的 ``技术'' 和通常的% +意思不太一样. 关于这些函数, 重要的不是要知道怎样写, 而是要知道它们从何而来. %%% Local Variables: Modified: trunk/README ============================================================================== --- trunk/README (original) +++ trunk/README Wed Oct 31 08:51:02 2007 @@ -1,3 +1,5 @@ +CL-USER 1 > (clc:clc-require :net-snmp) + CL-USER 2 > (snmp:snmp-walk "localhost" "system") ((#<SMI:OBJECT-ID sysDescr.0> "Linux 2950.lab.163.org 2.6.18-4-xen-vserver-amd64 #1 SMP Fri May 4 03:26:45 UTC 2007 x86_64")

1 0

[cl-net-snmp-cvs] r95 - vendor/cl-http
by ctian＠common-lisp.net 29 Oct '07

29 Oct '07

Author: ctian Date: Mon Oct 29 11:08:06 2007 New Revision: 95 Removed: vendor/cl-http/ Log: remote cl-http

1 0

[cl-net-snmp-cvs] r94 - vendor/cl-http/lw/server
by ctian＠common-lisp.net 20 Oct '07

20 Oct '07

Author: ctian Date: Sat Oct 20 10:40:48 2007 New Revision: 94 Modified: vendor/cl-http/lw/server/unix.lisp Log: More fix Modified: vendor/cl-http/lw/server/unix.lisp ============================================================================== --- vendor/cl-http/lw/server/unix.lisp (original) +++ vendor/cl-http/lw/server/unix.lisp Sat Oct 20 10:40:48 2007 @@ -470,18 +470,18 @@ "Returns non-null if PATHNAME�denotes a directory." #+lispworks3.2 (lw:directoryp pathname) - #+lispworks4 + #+(or lispworks4 lispworks5) ;; (lw:file-directory-p pathname) ;this one touches the file system -- JCMa 10/9/2003 (system:directory-pathname-p pathname)) ;;; When it's unclear what shell is used by CL, check the shell argument SHELL ;;; -- OBC -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun system (arg) (sys::call-system arg)) ;;; OBC added -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun unix-sh-test (cond path &aux (strpath (cond ((stringp path) path) ((pathnamep path) (namestring path))))) @@ -609,21 +609,21 @@ (define create-directories-recursively (pathname) "Recursively create directories according to the directories present in PATHNAME." - #-LispWorks4 + #-(or LispWorks4 LispWorks5) (create-directory-recursively1 pathname) - #+LispWorks4 + #+(or LispWorks4 LispWorks5) (ensure-directories-exist pathname)) ;;; For implementations where pathname-directory does ;;; not return NIL when there is no directory in the pathname. ;;; -- OBC -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun pathname-dirs (pathname) (let ((dirs (pathname-directory pathname))) (and (consp dirs) dirs))) ;;; -- OBC -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun create-a-directory (path &optional (error-p t)) (let ((str (namestring path))) ;;(directorystring path) (case (system (format nil "mkdir ~S" str)) @@ -636,12 +636,12 @@ ;;; Return path if you can write in it or over it. ;;; -- OBC -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun file-permit-p (path &optional (permission "w")) (and (unix-sh-test (concatenate 'string "-" permission) path) path)) ;;; -- OBC -#-LispWorks4 +#-(or LispWorks4 LispWorks5) (defun create-directory-recursively1 (path &optional (error-p t)) (ctypecase path (string (setq path (translate-logical-pathname (pathname path))))

1 0

[cl-net-snmp-cvs] r93 - vendor/cl-http/lw/server
by ctian＠common-lisp.net 20 Oct '07

20 Oct '07

Author: ctian Date: Sat Oct 20 07:00:27 2007 New Revision: 93 Modified: vendor/cl-http/lw/server/tcp-interface.lisp Log: Fix more LW 5 bugs Modified: vendor/cl-http/lw/server/tcp-interface.lisp ============================================================================== --- vendor/cl-http/lw/server/tcp-interface.lisp (original) +++ vendor/cl-http/lw/server/tcp-interface.lisp Sat Oct 20 07:00:27 2007 @@ -375,7 +375,7 @@ (disable-http-service)) ;; force shutdown of all servers and free resources on exit from lisp. -#+LispWorks4 +#+(or LispWorks4 LispWorks5) (eval-when (:load-toplevel) (lw:define-action "When quitting image" "Shutdown CL-HTTP" #'shutdown-http-service) )

1 0

[cl-net-snmp-cvs] r92 - vendor/cl-http/lw/server
by ctian＠common-lisp.net 20 Oct '07

20 Oct '07

Author: ctian Date: Sat Oct 20 06:06:24 2007 New Revision: 92 Modified: vendor/cl-http/lw/server/sysdcl.lisp Log: trivial bugfix for smtp Modified: vendor/cl-http/lw/server/sysdcl.lisp ============================================================================== --- vendor/cl-http/lw/server/sysdcl.lisp (original) +++ vendor/cl-http/lw/server/sysdcl.lisp Sat Oct 20 06:06:24 2007 @@ -86,8 +86,8 @@ "PREFERENCES" ; Configuration Preference Facility "WEB-CONFIGURATION" ; Server Configuration via the Web #+LispWorks "HTTP:lw;server;tcp-interface" - #+(and LispWorks4 LispWorks5) "http:smtp;smtp" ; Simple SMTP mailer - #+(and LispWorks4 LispWorks5) "http:smtp;mail" ; Interfaces for sending email + #+(or LispWorks4 LispWorks5) "http:smtp;smtp" ; Simple SMTP mailer + #+(or LispWorks4 LispWorks5) "http:smtp;mail" ; Interfaces for sending email )) #-Genera @@ -246,4 +246,4 @@ "more-preferences" "presentation-types" "window-log" - "http-ui")) \ No newline at end of file + "http-ui"))

1 0

[cl-net-snmp-cvs] r91 - in vendor/cl-http: lw/server proxy/examples server smtp
by ctian＠common-lisp.net 20 Oct '07

20 Oct '07

Author: ctian Date: Sat Oct 20 05:57:56 2007 New Revision: 91 Modified: vendor/cl-http/lw/server/sysdcl.lisp vendor/cl-http/proxy/examples/configuration.lisp vendor/cl-http/server/variables.lisp vendor/cl-http/smtp/smtp.lisp Log: More fix for LW5 Modified: vendor/cl-http/lw/server/sysdcl.lisp ============================================================================== --- vendor/cl-http/lw/server/sysdcl.lisp (original) +++ vendor/cl-http/lw/server/sysdcl.lisp Sat Oct 20 05:57:56 2007 @@ -46,7 +46,7 @@ #+(or LispWorks4 LispWorks5) "HTTP:lw;server;tcp-stream-4" ; LispWorks 4 specific #-Genera "HTTP:mcl;server;www-utils" ; Some portable utils are there - #+(or LispWorks4.0 LispWorks4.1 LispWorks4.2 LispWorks4.3 LispWorks5) + #+(or LispWorks4.0 LispWorks4.1 LispWorks4.2 LispWorks4.3 LispWorks4.4 LispWorks5) "HTTP:lw;server;time-and-author" ; LispWorks 4 specific file properties #+(or UNIX Harlequin-PC-Lisp) "HTTP:lw;server;unix" ; add-ons for UNIX-like ports @@ -86,8 +86,8 @@ "PREFERENCES" ; Configuration Preference Facility "WEB-CONFIGURATION" ; Server Configuration via the Web #+LispWorks "HTTP:lw;server;tcp-interface" - #+LispWorks4 "http:smtp;smtp" ; Simple SMTP mailer - #+LispWorks4 "http:smtp;mail" ; Interfaces for sending email + #+(and LispWorks4 LispWorks5) "http:smtp;smtp" ; Simple SMTP mailer + #+(and LispWorks4 LispWorks5) "http:smtp;mail" ; Interfaces for sending email )) #-Genera Modified: vendor/cl-http/proxy/examples/configuration.lisp ============================================================================== --- vendor/cl-http/proxy/examples/configuration.lisp (original) +++ vendor/cl-http/proxy/examples/configuration.lisp Sat Oct 20 05:57:56 2007 @@ -54,7 +54,7 @@ ;; The maximum size in bytes that a proxy cache is allows to consume in ;; storage. Use this parameter to control garbage collection. -(setq *proxy-cache-maximum-size* 20000000) ;20 megabytes for a small proxy +(setq *proxy-cache-maximum-size* 2000000000) ;20 Gigabytes for a common proxy ;; The minimum expiration time in seconds for an object to be cached. This ;; bounds resource expiration times. @@ -86,6 +86,23 @@ ;; Define default subnet security for proxy service to avoid a breach of your ;; site's IP security (define-proxy-subnets - #|"128.52.0.0"|# ; MIT AI Lab + "172.16.0.0" + "172.17.0.0" + "172.18.0.0" + "172.19.0.0" + "172.20.0.0" + "172.21.0.0" + "172.22.0.0" + "172.23.0.0" + "172.24.0.0" + "172.25.0.0" + "172.26.0.0" + "172.27.0.0" + "172.28.0.0" + "172.29.0.0" + "172.30.0.0" + "172.31.0.0" + "192.168.0.0" + "127.0.0.0" #.(local-host-ip-address) ;restrict proxy service to local host as default ) Modified: vendor/cl-http/server/variables.lisp ============================================================================== --- vendor/cl-http/server/variables.lisp (original) +++ vendor/cl-http/server/variables.lisp Sat Oct 20 05:57:56 2007 @@ -350,7 +350,7 @@ #+MCL (symbol-value 'ccl:*default-character-type*) #+LispWorks3.2 'base-character #+(or Allegro Lucid CMU LispWorks4) 'base-char - #+LispWorks5 (symbol-value 'lw:*default-character-element-type*) + #+LispWorks5 'base-char #-(or Genera Allegro ACLPC MCL LispWorks Lucid CMU) 'base-character) (define-constant +standard-text-copy-mode+ Modified: vendor/cl-http/smtp/smtp.lisp ============================================================================== --- vendor/cl-http/smtp/smtp.lisp (original) +++ vendor/cl-http/smtp/smtp.lisp Sat Oct 20 05:57:56 2007 @@ -98,7 +98,7 @@ `(let ((,stream (scl:make-instance 'message-body-stream :output-stream ,output-stream))) . ,body)) -#-(or Genera LispWorks4) +#-(or Genera LispWorks4 LispWorks5) (defmacro with-message-body-encoding ((stream output-stream) &body body) `(let ((,stream ,output-stream)) . ,body))

1 0

[cl-net-snmp-cvs] r90 - in vendor/cl-http: client clim/ui lw lw/server mcl/server server
by ctian＠common-lisp.net 20 Oct '07

20 Oct '07

Author: ctian Date: Sat Oct 20 04:33:06 2007 New Revision: 90 Modified: vendor/cl-http/client/connection.lisp vendor/cl-http/clim/ui/http-ui.lisp vendor/cl-http/lw/server/time-and-author.lisp vendor/cl-http/lw/start.lisp vendor/cl-http/mcl/server/www-utils.lisp vendor/cl-http/server/data-cache.lisp vendor/cl-http/server/headers.lisp vendor/cl-http/server/server.lisp vendor/cl-http/server/url.lisp Log: Fix for LispWorks 5 64-bit Modified: vendor/cl-http/client/connection.lisp ============================================================================== --- vendor/cl-http/client/connection.lisp (original) +++ vendor/cl-http/client/connection.lisp Sat Oct 20 04:33:06 2007 @@ -447,7 +447,7 @@ (cond ((zerop (connection-free-since connection)) (let* ((time (get-universal-time)) (close (+ time (the integer (or (connection-timeout connection) *client-persistent-connection-timeout*))))) - (declare (bignum time)) + (declare (#-lispworks-64bit bignum #+lispworks-64bit fixnum time)) ;; reset instance variables (setf (connection-free-since connection) time (connection-close-time connection) close)) Modified: vendor/cl-http/clim/ui/http-ui.lisp ============================================================================== --- vendor/cl-http/clim/ui/http-ui.lisp (original) +++ vendor/cl-http/clim/ui/http-ui.lisp Sat Oct 20 04:33:06 2007 @@ -119,8 +119,8 @@ (defun http-ui () "Top level function for starting the HTTP-UI user interface" (or (clim:find-application-frame 'http-ui :create nil) - (let ((width #+Genera clim:+fill+ #-Genera 750) - (height #+Genera clim:+fill+ #-Genera 650)) + (let ((width #+Genera clim:+fill+ #-(or lispworks Genera 750) #+lispworks 1600) + (height #+Genera clim:+fill+ #-(or lispworks Genera 650) #+lispworks 1000)) (clim:run-frame-top-level (clim:make-application-frame 'http-ui :width width :height height))))) @@ -296,8 +296,8 @@ :default proxy-caching-p))) (if proxy-enabled-p (when (not proxy-is-enabled-p) - (http:enable-proxy-service)) - (http:disable-proxy-service)) + (funcall (symbol-function (find-symbol "ENABLE-PROXY-SERVICE" :package :http)))) + (funcall (symbol-function (find-symbol "DISABLE-PROXY-SERVICE" :package :http)))) (setf http::*debug-proxy* debug-proxy http::*proxy-caching-p* proxy-caching-p)))) Modified: vendor/cl-http/lw/server/time-and-author.lisp ============================================================================== --- vendor/cl-http/lw/server/time-and-author.lisp (original) +++ vendor/cl-http/lw/server/time-and-author.lisp Sat Oct 20 04:33:06 2007 @@ -30,7 +30,7 @@ #+unix (defconstant *time-til-70* 2208988800) -#+unix +#+(and unix (not lispworks-64bit)) (defun set-file-dates (file &key creation modification access) (declare (ignore creation)) ; makes no sense on UNIX (let* ((pathname (truename file)) @@ -49,6 +49,12 @@ (unless (zerop (c-utime filename buffer)) (report-unix-error 'set-file-dates (lw:errno-value) pathname))))) +#+(and unix lispworks-64bit) +(defun set-file-dates (file &key creation modification access) + (declare (ignore creation)) ; makes no sense on UNIX + ;; binghe: do nothing until c exception is fixed + t) + #+unix (defun report-unix-error (function errno pathname) (error "Failed to ~A file ~A: ~A(~A)." Modified: vendor/cl-http/lw/start.lisp ============================================================================== --- vendor/cl-http/lw/start.lisp (original) +++ vendor/cl-http/lw/start.lisp Sat Oct 20 04:33:06 2007 @@ -11,6 +11,9 @@ (in-package "CL-USER") +#+lispworks-64bit +(require "clim") + ;;; lispm major.minor LispWorks major.minor (setq *cl-http-server-version* '(70 190 1 9 2)) Modified: vendor/cl-http/mcl/server/www-utils.lisp ============================================================================== --- vendor/cl-http/mcl/server/www-utils.lisp (original) +++ vendor/cl-http/mcl/server/www-utils.lisp Sat Oct 20 04:33:06 2007 @@ -158,7 +158,7 @@ (define next-3am-universal-time (&optional (offset 0) (reference-time (get-universal-time))) "Returns the universal time for the next 3am in the local timezone relative to REFERENCE-TIME. OFFSET is a positive or negative number of seconds relative to 3am." - (declare (fixnum offset) (bignum reference-time)) + (declare (fixnum offset) (#-lispworks-64bit bignum #+lispworks-64bit fixnum reference-time)) (multiple-value-bind (seconds minutes hours date month year day-of-the-week) (decode-universal-time reference-time) (declare (fixnum seconds minutes hours) @@ -169,7 +169,8 @@ #.(* 60. 60. 24.) ;plus 24 hours 0) offset ;offset - (the bignum (encode-universal-time 0 0 3. date month year (time-zone)))))) + (the #-lispworks-64bit bignum + #+lispworks-64bit fixnum (encode-universal-time 0 0 3. date month year (time-zone)))))) ;;;-------------------------------------------------------------------- ;;; Modified: vendor/cl-http/server/data-cache.lisp ============================================================================== --- vendor/cl-http/server/data-cache.lisp (original) +++ vendor/cl-http/server/data-cache.lisp Sat Oct 20 04:33:06 2007 @@ -1062,7 +1062,8 @@ (next-revalidation (recache-data-universe-as-necessary data-universe cache-time)) (finish-time (get-universal-time)) (wait-seconds (- next-revalidation finish-time))) - (declare (bignum start-time finish-time next-revalidation)) + (declare (#-lispworks-64bit bignum #+lispworks-64bit fixnum + start-time finish-time next-revalidation)) #+ignore(notify-log-window "Waiting ~\\time-interval\\ seconds before Revalidating ~A" wait-seconds (data-universe-name data-universe)) (setq elapsed-time (- finish-time start-time)) Modified: vendor/cl-http/server/headers.lisp ============================================================================== --- vendor/cl-http/server/headers.lisp (original) +++ vendor/cl-http/server/headers.lisp Sat Oct 20 04:33:06 2007 @@ -4044,7 +4044,8 @@ (integer cache-time) (cons (apply #'min cache-time))))) (declare (fixnum margin) - (bignum last-modification cache-time cache-universal-time)) + (#-lispworks-64bit bignum #+lispworks-64bit fixnum + last-modification cache-time cache-universal-time)) (< (- last-modification margin) (+ cache-universal-time margin))))) (declaim (inline if-modified-since-p)) Modified: vendor/cl-http/server/server.lisp ============================================================================== --- vendor/cl-http/server/server.lisp (original) +++ vendor/cl-http/server/server.lisp Sat Oct 20 04:33:06 2007 @@ -4260,7 +4260,12 @@ (unless (and directory-string (eql cached-last-modification current-modification) (or (not (numberp use-cache)) - (< (- (the bignum (server-request-time *server*)) (the bignum cache-time)) + ;; LispWorks 5 Point (bignum -> fixnum) + (< (- (the #-lispworks-64bit bignum + #+lispworks-64bit fixnum + (server-request-time *server*)) + (the #-lispworks-64bit bignum + #+lispworks-64bit fixnum cache-time)) use-cache))) #+ignore(fast-format *standard-output* "~&[~I] Caching Directory: ~A" (http::write-standard-time (get-universal-time) stream) ,url) Modified: vendor/cl-http/server/url.lisp ============================================================================== --- vendor/cl-http/server/url.lisp (original) +++ vendor/cl-http/server/url.lisp Sat Oct 20 04:33:06 2007 @@ -4013,7 +4013,8 @@ (with-slots (expiration-function) expiration-mixin (setf expiration-function #'(lambda (url) (declare (ignore url)) - (the bignum (+ *one-year-interval* (get-universal-time))))))) + (the #-lispworks-64bit bignum + #+lispworks-64bit fixnum (+ *one-year-interval* (get-universal-time))))))) (defmethod set-expiration-function ((expiration-mixin expiration-mixin) (type (eql :time)) &rest arguments) (with-slots (expiration-function) expiration-mixin @@ -4029,7 +4030,8 @@ (check-type argument integer) (setf expiration-function #'(lambda (url) (declare (ignore url)) - (the bignum (+ (get-universal-time) argument))))))) + (the #-lispworks-64bit bignum + #+lispworks-64bit fixnum (+ (get-universal-time) argument))))))) (defmethod set-expiration-function ((expiration-mixin expiration-mixin) (type (eql :function)) &rest arguments ) (with-slots (expiration-function) expiration-mixin @@ -4068,7 +4070,8 @@ (check-type argument integer) (setf max-age-function #'(lambda (url) (declare (ignore url)) - (- (the bignum (get-universal-time)) + (- (the #-lispworks-64bit bignum + #+lispworks-64bit fixnum (get-universal-time)) (the integer argument))))))) (defmethod set-max-age-function ((expiration-mixin expiration-mixin) (type (eql :interval)) &rest arguments) @@ -4081,7 +4084,8 @@ (declare (ignore arguments)) (with-slots (max-age-function) expiration-mixin (setf max-age-function #'(lambda (url) - (- (the bignum (get-universal-time)) + (- (the #-lispworks-64bit bignum + #+lispworks-64bit fixnum (get-universal-time)) (the integer (expiration-universal-time url)))))))

1 0

[cl-net-snmp-cvs] r89 - vendor/cl-http/server
by ctian＠common-lisp.net 20 Oct '07

20 Oct '07

Author: ctian Date: Sat Oct 20 03:40:41 2007 New Revision: 89 Modified: vendor/cl-http/server/url.lisp Log: match LispWorks 5 API Modified: vendor/cl-http/server/url.lisp ============================================================================== --- vendor/cl-http/server/url.lisp (original) +++ vendor/cl-http/server/url.lisp Sat Oct 20 03:40:41 2007 @@ -2873,7 +2873,7 @@ (defsetf description %set-description) -(defmethod documentation ((url documentation-mixin) #-(or CMU LispWorks4) &optional doc-type) +(defmethod documentation ((url documentation-mixin) #-(or CMU LispWorks4 LispWorks5) &optional doc-type) (declare (ignore doc-type)) (with-slots (plist) url (getf plist :description)))

1 0

[cl-net-snmp-cvs] r88 - vendor/cl-http/server
by ctian＠common-lisp.net 20 Oct '07

20 Oct '07

Author: ctian Date: Sat Oct 20 03:27:49 2007 New Revision: 88 Modified: vendor/cl-http/server/variables.lisp Log: Try to use lw:*default-character-element-type* Modified: vendor/cl-http/server/variables.lisp ============================================================================== --- vendor/cl-http/server/variables.lisp (original) +++ vendor/cl-http/server/variables.lisp Sat Oct 20 03:27:49 2007 @@ -349,7 +349,8 @@ #+(or Genera ACLPC) 'character #+MCL (symbol-value 'ccl:*default-character-type*) #+LispWorks3.2 'base-character - #+(or Allegro Lucid CMU LispWorks4 LispWorks5) 'base-char + #+(or Allegro Lucid CMU LispWorks4) 'base-char + #+LispWorks5 (symbol-value 'lw:*default-character-element-type*) #-(or Genera Allegro ACLPC MCL LispWorks Lucid CMU) 'base-character) (define-constant +standard-text-copy-mode+

1 0

[cl-net-snmp-cvs] r87 - vendor/cl-http/server
by ctian＠common-lisp.net 20 Oct '07

20 Oct '07

Author: ctian Date: Sat Oct 20 03:02:43 2007 New Revision: 87 Modified: vendor/cl-http/server/variables.lisp Log: Add definition for LispWorks 5 Modified: vendor/cl-http/server/variables.lisp ============================================================================== --- vendor/cl-http/server/variables.lisp (original) +++ vendor/cl-http/server/variables.lisp Sat Oct 20 03:02:43 2007 @@ -349,7 +349,7 @@ #+(or Genera ACLPC) 'character #+MCL (symbol-value 'ccl:*default-character-type*) #+LispWorks3.2 'base-character - #+(or Allegro Lucid CMU LispWorks4) 'base-char + #+(or Allegro Lucid CMU LispWorks4 LispWorks5) 'base-char #-(or Genera Allegro ACLPC MCL LispWorks Lucid CMU) 'base-character) (define-constant +standard-text-copy-mode+

1 0