/[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.78 by heller, Tue Sep 27 21:50:38 2005 UTC revision 1.79 by heller, Mon Oct 10 22:24:28 2005 UTC
# Line 1  Line 1 
1  ;;;;                  -*- indent-tabs-mode: nil; outline-regexp: ";;;;;*"; -*-  ;;;;                  -*- indent-tabs-mode: nil; outline-regexp: ";;;;;* "; -*-
2  ;;;  ;;;
3  ;;; swank-allegro.lisp --- Allegro CL specific code for SLIME.  ;;; swank-allegro.lisp --- Allegro CL specific code for SLIME.
4  ;;;  ;;;
# Line 12  Line 12 
12    
13  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
14    (require :sock)    (require :sock)
15    (require :process)    (require :process))
16    
17    (import-from :excl *gray-stream-symbols* :swank-backend))  (import-from :excl *gray-stream-symbols* :swank-backend)
18    
19  ;;; swank-mop  ;;; swank-mop
20    
# Line 25  Line 25 
25  (defun swank-mop:slot-definition-documentation (slot)  (defun swank-mop:slot-definition-documentation (slot)
26    (documentation slot t))    (documentation slot t))
27    
28    
29  ;;;; TCP Server  ;;;; TCP Server
30    
31  (defimplementation preferred-communication-style ()  (defimplementation preferred-communication-style ()
# Line 47  Line 48 
48      s))      s))
49    
50  (defun find-external-format (coding-system)  (defun find-external-format (coding-system)
   #-(version>= 6) :default  
51    #+(version>= 6)    #+(version>= 6)
52    (let* ((name (ecase coding-system    (let* ((name (ecase coding-system
53                   (:iso-latin-1-unix :latin1)                   (:iso-latin-1-unix :latin1)
54                   (:utf-8-unix :utf-8-unix)                   (:utf-8-unix :utf8)
55                   (:emacs-mule-unix :emacs-mule))))                   (:emacs-mule-unix :emacs-mule))))
56      (excl:crlf-base-ef (excl:find-external-format name :try-variant t))))      (excl:crlf-base-ef (excl:find-external-format name :try-variant t)))
57      #-(version>= 6)
58      (ecase coding-system
59        (:iso-latin-1-unix :default)))
60    
61  (defun set-external-format (stream external-format)  (defun set-external-format (stream external-format)
62    (setf (stream-external-format stream)    (setf (stream-external-format stream)
# Line 504  Line 507 
507  (defun frob-allegro-field-def (object def)  (defun frob-allegro-field-def (object def)
508    (with-struct (inspect::field-def- name type access) def    (with-struct (inspect::field-def- name type access) def
509      (ecase type      (ecase type
510        ((:unsigned-word :unsigned-byte :unsigned-natural        ((:unsigned-word :unsigned-byte :unsigned-natural
511                         :unsigned-half-long :unsigned-3byte)                         :unsigned-long :unsigned-half-long
512                           :unsigned-3byte)
513         (label-value-line name (inspect::component-ref-v object access type)))         (label-value-line name (inspect::component-ref-v object access type)))
514        ((:lisp :value)        ((:lisp :value)
515         (label-value-line name (inspect::component-ref object access)))         (label-value-line name (inspect::component-ref object access)))

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

  ViewVC Help
Powered by ViewVC 1.1.5