fname.fasl

#!/projects/77750c71-ec7b-4962-bf55-a49ff5065fb6/open-axiom-build/x86_64-unknown-linux-gnu/bin/bootsys --script
# FASL
  compiled from "../../../open-axiom/src/interp/fname.lisp"
  using SBCL version 1.2.14.debian
�X86-64N
1.2.14.debian2(:GENCGC :SB-PACKAGE-LOCKS :SB-THREAD :SB-UNICODE)#
�	AxiomCore�COMPILE-TIME-P7��importModule�
sys-macros	8
#�#
�#�PSETP	*PACKAGE*�BOOT	,8�SB-IMPL�%DEFUN�BOOT�	DirToString>TROOT	PEQUAL<�	T	DIRECTORYP
MAKE-PATHNAME<P
NAMESTRING<�
/	PSTRING-RIGHT-TRIM<#"
#ITSTANDARDTMINIMAL##`#$"
\	TEXTERNAL�SB-C�TL-XEP
	q	0
	#M"�"

#V##$"�\	
0
	\	
s	0		�

1�EH����H�e�H�U�I�L$`H�M�H�\$�H��H�U�H�=V���H�W����H�+H���P	H�� uzH�}� u
H�7���H���]�H�\$�H��H�)���H�}�H�&����H�+H���P	H�\$�H��H�����H�+H���P	H��H����H�
�����u�`	H�������
#
�	
D	PFUNCTION	PVALUESPSTRINGP	&OPTIONAL		####
##
	####
#	####
	PNULL####	
###
#	\
	1\	PCOND##	\	\	�
9##�t/projects/77750c71-ec7b-4962-bf55-a49ff5065fb6/open-axiom-build/src/interp/../../../open-axiom/src/interp/fname.lisp	o	0	8�	StringToDir>>�	SB-KERNEL�>STRING=*<�>"HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS<�	name.type	�CONCAT<PPATHNAME-DIRECTORY<�
/name.type	#"�
#I##`#$"
\	=	0
	#M"�"�
#V##$"�
\	=0
	\	= 0		�	�
1�EH����
H�e�H�U�I�L$`H�M�H�\$�H��0H�U�H�=F���1�H�C� H�C�H�C� H�-����H�+H���P	H�� �%
H�\$�H��0H�U�H�=���1�H�C� H�C�H�C� H������H�+H���P	H�� t� H���]�H�U�H��H�l$H�l$��%x
 H��H��H�\$�H��H�U�H������H�+H���P	��H��/u?H�\$�H��H�U�H�=o���H�p����H�+H���P	HB�H�_�����u�`	H�\$�H��H�U�H�=H���H�1����H�+H���P	HB�H� �����u�`	H����� ����
M=�	
S	&'(PLIST*		B####
###
	C####
##	B####
###
	C####
##	PCHAR=####
##
	PLENGTH####
#
##
##
!		P
-####
#
##
#	PAREF####
#
##
	PSTRING=####	_###
#	\	5##	\	\	�
f##:;0	8�	myWritable?>i?<�
.	�	fnameExists?<�	
writeablep<�	fnameDirectory<�&``myWritable?'' requires a string arg.	�	error<#"�
#I##`#$"
\	h	0
	#M"�"�
#V## "�
\	h0
	\	h 0		��
1�EH����
H�e�H�U�I�L$`H�M�H�M؍A��a
�A�,�<�T
H�U�H�\$�H��0H�=:���1�H�C� H�C�H�C� H�!����H�+H���P	H�� tH�
���H�M�H�U�H�\$�H��H������H�+H���P	HB�H�� ��H�U�H�\$�H��0H�=����1�H�C� H�C�H�C� H������H�+H���P	H�� tH�
����H�M�H�U�H�\$�H��H�y����H�+H���P	HB�1���Ѻ A�O IO�H���]�H�U�H�\$�H��H�=����H�+H���P	HB�H�U��6���H�\$�H��H����H�����H�+H���P	HB��~����TABSOLUTE�SB-VM�x	GENERIC->�|

zhO&'(PMEMBER	*		k###
#
	P
>###
	_###
	l####	PNOT###
	j###
#
	_###
	n###	�###
	PSTRINGP###
#
	\	��\	\	�
�##:;0	8�		fnameMake>�?<=<TNAMETTYPE<#"%
#I##`#$"
#$"�#$"\	�	0
	#T"�"'
#]##$"�
#$"�
#(""
\	�0
	\	� 0		�.
1�EH����H�e�H�U�H�}�L��I�L$`H�M�I��H�\$�H��0H�=P���1�H�C� H�C�H�C� L�E�H�3����H�+H���P	L�E�H�� tA� H�\$�H��H�U�L�E�H�����H�+H���P	HB�L�E�H���G��u9H�����H�5����H�M�H�M�H�
����H�M�L�E�H�������u�`	��
/��
��$�	
N�	
E	&	(PPATHNAME*		=###	##	_###
	\	\	�
�##:;0	8l>�C<
<#"�#E##`#$"
\	l	0
	#L"�"�#U##,""�\	l0
	\	l 0		��1�EH��uKH�e�H��H�u�I�L$`H�M�H�\$�H��H��H������H�+H���P	H�u�H�w�����u�`	�
�l�	
F	&'P
*	C###
	
##	\	\	�
�##:;0	8�		fnameName>�P
PATHNAME-NAME<#"�#E##`#$"
\	�	0
	#L"�"�#U##,""�\	�0
	\	� 0		��1�EH��uWH�e�H��H�u�I�L$`H�M�H�\$�H��H��H������H�+H���P	H�u�H�w���H��H�� H��HD�H���]��
���&'(PORPSIMPLE-ARRAYP	CHARACTER�		�	PSIMPLE-BASE-STRING�PATTERN{TWILDT
UNSPECIFIC		*		����
�###
##
	\	\	�
�##:;0	8�		fnameType>�P
PATHNAME-TYPE<#"�#E##`#$"
\	�	0
	#L"�"�#U##,""�\	�0
	\	� 0		��1�EH��uWH�e�H��H�u�I�L$`H�M�H�\$�H��H��H������H�+H���P	H�u�H�w���H��H�� H��HD�H���]��
�����###
##
	\	\	�
�##:;0	8j>�<P
PROBE-FILE<#"�#E#	#`#$"
\	j	0
	#I"�"�#R#	#$"�\	j0
	\	j 0		��1�EH��umH�e�H�U�I�L$`H�M�H�\$�H��H�U�H������H�+H���P	H�\$�H��H�t����H�+H���P	H�� �O A� ID�H���]��
�j�~#	##
#
	�#	##
	\	\	�
�##	:;0	8�	fnameReadable?>�T	DIRECTIONTINPUTTIF-DOES-NOT-EXISTPOPEN<PCLOSE<#"�#I#
#`#$"
\	�	0
	#M"�"�#V#
#$"M
\	�0
	\	� 0		��1
�EH����H�e�H�U�I�L$`H�M�H�\$�H��(H�U�H�=f���H�5g���H�h���H�C�H�C� H�]����
H�+H���P	H��H�� u� H���]�H�\$�H��H��H�-����H�+H���P	�O ���


��~

#
###
#
	
#
##
##
	\	5#
##	\	\	�

##
:;0	8�	fnameWritable?>
<h<#"�#E##`#$"
\	
	0
	#L"�"�#U##,""�\	
0
	\	
 0		��1�EH��uKH�e�H��H�u�I�L$`H�M�H�\$�H��H��H������H�+H���P	H�u�H�w�����u�`	�


��###
	h##	\	\	�
!
##:;0	8�	fnameNew>$
h<PGENSYM<�<�l	m	\	###-	<�<�#"�
#O##`#$"�#$"
#$"\	#
	0
	#["�"�
#d##$"�#$"

#$"M
\	#
0
	\	#
 0		��
1�EH���
H�e�H��H��H�M�H�U�H�u�I�L$`H�M�H�\$�H��H�U�H�H����H�+H���P	HB�H��O �
H�� �
� �H�\$�H��H�U�H�����H�+H���P	H�zH�\$�H��H�U�H�u�H������H�+H���P	HB�B����H�JH;
����uhH��H��H�\$�H��H�u�H������H�+H���P	H�u�H�\$�H��H�u�H������H�+H���P	H�u�H�� �9���H��H���]�H�Y-H��~H�A%H�HH;
?����y����
	�
��� ��H�� ������
t�
�
1
#
�&�(�0�	*		�#####
	#####
#
#
	�#####
#
	$
#######
	)######	�#####	�###
	h###
#
	\	5
;
\	PPSETQ###	PUNLESS@
PDO@
\	\	�
E
##:;0	8"B`Z�+
�?S;	L
�
]��u�	#"��>�:t	0		
J
�0
J
�
J
�	
J
��J
��J
��J
̲J
̛J
�vJ
�LJ
�"?>K
@