/[slime]/slime/swank-allegro.lisp
ViewVC logotype

Diff of /slime/swank-allegro.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.74 by heller, Tue Jul 5 20:30:59 2005 UTC revision 1.75 by heller, Thu Jul 14 09:12:02 2005 UTC
# Line 59  Line 59 
59  (defun find-external-format (coding-system)  (defun find-external-format (coding-system)
60    #-(version>= 6) :default    #-(version>= 6) :default
61    #+(version>= 6)    #+(version>= 6)
62    (let* ((name (ecase external-format    (let* ((name (ecase coding-system
63                   (:iso-latin-1-unix :latin1)                   (:iso-latin-1-unix :latin1)
64                   (:utf-8-unix :utf-8-unix)                   (:utf-8-unix :utf-8-unix)
65                   (:emacs-mule-unix :emacs-mule))))                   (:emacs-mule-unix :emacs-mule))))
66      (excl:crlf-base-ef (excl:find-external-format name :try-variant t))))      (excl:crlf-base-ef (excl:find-external-format name :try-variant t))))
67    
68  (defun set-external-format (stream external-format)  (defun set-external-format (stream external-format)
69      (setf (stream-external-format stream)    (setf (stream-external-format stream)
70            (find-external-format external-format)))          (find-external-format external-format)))
71    
72  (defimplementation format-sldb-condition (c)  (defimplementation format-sldb-condition (c)
73    (princ-to-string c))    (princ-to-string c))
# Line 234  Line 234 
234    (member (type-of object) '(excl::compiler-note compiler::compiler-note)))    (member (type-of object) '(excl::compiler-note compiler::compiler-note)))
235    
236  (defun compiler-undefined-functions-called-warning-p (object)  (defun compiler-undefined-functions-called-warning-p (object)
237    #-allegro-v5.0    #+(version>= 6)
238    (typep object 'excl:compiler-undefined-functions-called-warning))    (typep object 'excl:compiler-undefined-functions-called-warning))
239    
240  (deftype compiler-note ()  (deftype compiler-note ()

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

  ViewVC Help
Powered by ViewVC 1.1.5