diff src/console-msw.c @ 280:7df0dd720c89 r21-0b38

Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents c5d627a313b1
children 064ab7fed2e0
line wrap: on
line diff
--- a/src/console-msw.c	Mon Aug 13 10:31:30 2007 +0200
+++ b/src/console-msw.c	Mon Aug 13 10:32:22 2007 +0200
@@ -104,26 +104,11 @@
   return (CONSP (obj)) ? XCONS (obj) : NULL;
 }
 
-Lisp_Object DCAR(Lisp_Object obj)
-{
-  return (CONSP (obj)) ? XCAR (obj) : 0;
-}
-
-Lisp_Object DCDR(Lisp_Object obj)
-{
-  return (CONSP (obj)) ? XCDR (obj) : 0;
-}
-
 struct Lisp_Cons *DCONSCDR(Lisp_Object obj)
 {
   return ((CONSP (obj)) && (CONSP (XCDR (obj)))) ? XCONS (XCDR (obj)) : 0;
 }
 
-Lisp_Object DCARCDR(Lisp_Object obj)
-{
-  return ((CONSP (obj)) && (CONSP (XCDR (obj)))) ? XCAR (XCDR (obj)) : 0;
-}
-
 char *DSTRING(Lisp_Object obj)
 {
   return (STRINGP (obj)) ? XSTRING_DATA (obj) : NULL;